
DESAP 1 - A STRUCTURAL DESIGN PROGRAM 
WITH STRESS AND DISPLACEMENT CONSTRAINTS 

Volume III: Program Listing 

1. Kiusalaas and G. B. Reddy 

Prepared by 

THE PENNSYLVANIA STATE UNIVERSITY 
University Park, Pa. 16802 
for George C. Marshall Space Flight Center 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION • WASHINGTON, D. C. • FEBRUARY 1977 


TECH LIBRARY KAFB, NM 



TECH LIBRARY u-iri;- 


DDtlBSS 


3. 

RECIPIENT'S CATALOG NO. 


5. 

REPORT DATE 

February 1977 


6. 

PERFORMING ORGANIZATION 

CODE 

8. PERFORMING ORGANIZATION REPORT ft 

M-204 

10. 

WORK UNIT NO. 


11. CONTRACT OR GRANT NO. 1 

NCA-8-71/72 1 

13. 

TYPE OF REPORT & PERIOD 

COVERED 


Contractor Report 
Final 


14. 

SPONSORING AGENCY CODE 



1. REPORT NO. [2. GOVERNMENT ACCESSION NO. 3. RECIPIENTS CATALOG NO. 

NASA CR-2796 |_ 

4 TITLE AND SUBTITLE 5. REPORT DATE 

DESAP 1 - A Structural Design Program with Stress and Dis- February 1977 

placement Constraints. Vol. HE: Program Listing 6 . performing organization code 

7. AUTHOR(S) ' 8 . PERFORMING ORGANIZATION REPORT # 

J. Kiusalaas and G. B. Reddy M-204 

9. PERFORMING ORGANIZATION NAME AND ADDRESS 10. WORK UNIT NO. ~~~ 

Department of Engineering Science and Mechanics 

The Pennsylvania State University "• N °' 

University Park, Pennsylvania 16802 L- - p£R|oD CQVERED 

12. SPONSORING AGENCY NAME AND ADDRESS 

Contractor Report 

National Aeronautics and Space Administration Final 

Washington D. C. 20546 14 . sponsoring agency code 

15. SUPPLEMENTARY NOTES — — ” 

This work was done under the sponsorship of the Structures and Propulsion Laboratory of the 
Marshall Space Flight Center, Alabama. 

16. ABSTRACT " ~ ’ ~ ~~ ~ 

DESAP i is a finite element program for c omputer -automate d , minimum weight design 
of elastic structures with constraints on stresses (including local instability criteria) and dis- 
placements Volume i of the report contains the theoretical and user T s manual of the program. 
Sample problems and the listing of the program are included in Volumes 2 and 3, respectively. 

The static analysis portion of DESAP i is based on the SOLID SAP finite element pro- 
gram developed at the University of California, Berkeley. In design, the stress ratio method 
is employed for the stress constraints, whereas the displacement constraints are handled by 
solving the appropriate optimality criterion. 

The element subroutines have been organized so as to facilitate additions and changes 
by the user. As a result, a relatively minor programming effort would be required to make 
DESAP 1 into a special-purpose program to handle the user f s specific design requirements 
and failure criteria. 

DESAP i is a companion program of DESAP 2, "A Structural Design Program with 
Stress and Buckling Constraints . 11 With the exception of a few cards, the same data deck can 
be used for both programs. 

This is Volume 3 of three volumes. 


17. KEV WORDS 


18. DISTRIBUTION STATEMENT 


STAR Category 39 


19. SECURITY CLASSIF. (of thi. r.pam 

Unclassified 


20. SECURITY CLASSIF. (of this p-ge) 

21. NO. OF PAGES 

Unclassified 

98 


$5.00 


For sale by the National Technical Information Service, Springfield, Virginia 22161 




TABLE OF CONTENTS 


VOLUME 3 


Name of Subroutine 

Page 

Main Program 

Q.i 

INPUTJ 

Q.6 

DEVAR 

Q.7 

ELTYPE 

Q. 8 

NOELEM 

Q. 8 

UNITWT 

Q.9 

EMULT 

Q.9 

INTERP 

Q.9 

CALBAN 

Q. 10 

REARAN 

Q. 10 

VECTOR 

Q.ll 

CROSS 

Q.ll 

DOT 

Q.ll 

ERROR 

Q.ll 

INPUTD 

Q. 12 

INL 

Q. 13 

ELSTIF 

Q. 14 

ELSTEW 

Q. 14 

ADDSTF 

Q. 15 

USOL 

Q. 16 

MAXD 

Q. 19 

PRINTD 

Q. 20 

DPRINT 

Q. 20 

STRESS 

Q. 21 

MOVED 

Q. 21 

STRSC 

Q. 22 

DESIGN 

Q. 23 

MESG 

Q. 25 

DDERV 

Q. 26 

ARRAN 

Q. 27 

FORCES 

Q. 28 

DUMAN 

Q. 29 

DERV 

Q. 29 

DISP 

Q. 30 

DDESIN 

Q. 32 

TRUSS 

Q. 35 

RUSS 

Q. 36 

FTRUSS 

Q. 38 

DTRUSS 

Q.40 

JOHNS 

Q.40 


iii 



BEAM 

TEAM 

NEWBM 

SLAVE 

CBRT 

DBEAM 


Q.41 
Q.42 
Q.45 
Q.48 
Q.49 
Q. 50 


PLANE 

ELAW 

QUAD 

FORMB 

POSINV 

PLNAX 

DP LAN 1 

PLNAX2 

DPLAN2 


Q. 52 
Q. 54 
Q. 55 
Q. 58 
Q. 59 
Q. 59 
Q. 62 
Q. 64 
Q.66 


SHEAR 

PANEL 

FPANEL 

DPANEL 


Q. 67 
Q.68 
Q. 71 
Q. 74 


SHELL Q. 75 
PLATE 1 Q ..77 
QTSHELL Q . 80 
CONDEN Q. 84 
SLST Q. 86 
SLCCT Q. 87 
TDCOS Q. 90 
QDCOS q.91 
DSHEL1 Q. 92 


BOUND n 93 

CLAMP £93 


Dummy Element Subroutines Q.96 

(An element subroutine package may be 

replaced by the corresponding dummy 

subroutine if the element is not used 

in the program run . ) 


iv 



(>++* ****444 **+444++ ****** *++*** ******** 4 4***# 4* +**4444444+*#***4*4****c MA I NOOOO 
£4444444444444 44 444444444 44 444444*444444444444444444444444444444444444 +CMA JNOO 10 
C** *4C MA 1 NOO? 0 

C+* DFSAP1 AN Al I TPM A TFO DESIGN PR PGR AM WITH STRESS AND 440MAIN0030 

C** DISPLACEMENT CONSTRAINTS RASFD PN SAP? ANALYSIS PROGRAM **CMAIN0040 

C** *«CMA]Nn050 

C ** BY J.KHISALAAS ANO G.R.RFDnv f WAV , 1976 ) 4*0 MA l N0060 

C** «*CMA1M0070 

£**44*4*4**4444*4**4**444*4444444444444444 **44*4444444444444444444444440 MA 1 NOOHO 

(;4**** ******************************************** 4# 44**44******* # ** ***Q M A | N0Q9Q 

COMMON /JIINK / HFD ( ? 0 ) * JltN ( ?RD ) MA1N0100 

COMMON /FI. PAR/ NPAR( 14) .NIIMNP , MR AND, NFl. TYP f N1 , N2 ,N3 , N4,N5,MTPT ,NFOMA IN01 10 
1 ,NIIMFI.,NIIM0V,M1 ,M?,M?,LL ,LR»NFOP ,NRLPCK MAIN01?0 

COMMON /UN ITS/ I R * 1W , I P , M , I ? , 13 . I ft . 1 9 , I 1 0, 1 1 1 . U 2 MAJN0130 

COMMON/FM/ 00015066) MAIN0140 

COMMON / CON TR / ICYCL *NCYCL * I SC AI_F , NSC ALE *KSf. ALF , KPNVG, I PE 5N , 1 WTM IN » MA I N01 50 
IWTMTN, FPSR,DFLTAI , DELTA?, K PUNCHED ISP, NMAXP t ND ISP, LB1 ♦ ALP A, SF, I $, MAI NO 160 
1 SMAXtrtMAX.OMFGA MA1M0170 

f; *********************** *********** ******************************** ** 44* 01^0 

C PROGRAM CAPACITY CONTROLLED RY THE FOLLOWING THRFF STATEMENTS MAIN0190 

C4444444***444*44++44*4*4*44*****4***##******+4*44***4*44444**#**4****+*MA I NO? 00 
DIMFMSIOM A (6000) 'MAI MO? 10 

RFAL*R AD( 3000 ) MAI NO?? 0 

FOIIIVALENCF (All), An(l)) MAJN0?30 

MTOT=6000 MAJN0?40 

C ****** ******* 4* 44*4*4***** *4**44* 4***4 #* + 4 4 4 * 4 4 4 4 4 44 4 4 4 44 4444 4444 4 4 44 4 4 M A I NO? 50 
C INPIIT-nmPlIT UNIT ASSIGNMENTS MAlN0?60 


£*44444444444*4*4*4*44444444444444444*44 44 4 444 444 44444444444444444444444M A I NO? 70 


IR=5 

KAIN02R0 


I W=6 

MA I N0?»9n 


I P=7 

MAIND300 


n=i 

MAIN0310 


i?=? 

MAI N03?0 


13=3 

MA1N0330 


IB = fl 

MA1ND340 


T 9 = 9 

MAIN0350 


no=io 

MAIN0360 


m = n 

MAIN0370 


n?=i? 

MAIN03R0 

C ********** ************************************************************* M A 1 N0390 

c— 

PROGRAM CONTROL OAT A 

MAIN0400 

c 


MA I N04 10 

c— 

NIIMNP = NUMBER OF NODF POINTS 

MA I N05? 0 

c~ 

NFI.TYP * NUMRFR OF FLFMFNT TYPFS 

MAIN0A30 

c— 

LI. = NUMRFR OF 1.0 AO CONDITIONS 

MAIN0440 

c— 

NIIMOV = NUMRFR nF 1NDFPEN0FNT OFSIGN VARIARLFS 

MA? N0450 

C *****4*4*44*444444444 44 4***444*444 4 4 44*4 444 4444 4 * 4 4 4 4 44 4 4 4 4* 4 44* 44 44 4 4 * M A I NO 460 


5 RFADt TR , 1 000 IHFO , NUMNP ,NF L TYP ,1.1. , NUMnv 

MAIN0670 


IF (NUMNP.FO.O) STOP 

MA I N04R0 


WRITF ( IW t ?000)HFI),NUMNP,NFL rYP,LL*NUMOV 

MA 1N0590 

£ 44444444*44444444*4444* 44 444 4+44444 4* 4##4*44*44#4 44444*444*444444444444 MA I NO 500 

c— 

nFSIGN CONTROL DATA 

MAIN0510 

c 


MA I N05?P 

c — 

KPR I NT = PR TNT OUT CnOF 

MA I NO 5 30 

C 

=0 NrnAL 01 SPLACFMFNTS NOT printfd 

MA1N0540 

c 

t=l NODAL OfSPL ACFMFNTS ARf PRINTED 

MAIN0550 

c— 

K PUNCH = PUNCH PUT COOF FOR RF START DFCK 

MAIM0560 

c 

=0 NO RFSTART OFCK PUMCHFD 

MAIN0570 

c 

= 1 PUNCHES RFSTART DFCK pnii DESIGN VAR 1 ABLE DATA 

MAI M05H0 

c— 

KOISP = CODE FOR DISPLACEMENT CPNSTR A I NT S 

MA I NO 5 90 



C MMAXn 

c 


=n no displacement constraints are prfsfnt 

= 1 PTSPL6CFMFNT CONSTRAINTS ARF PRFSFNT 
= NO. OF MAX. HI SPLACFMFN1 CONSTRAINT RATIOS TO RE 
CONS I0F RFO IN RFDESIGN 


-IOFSN = CURRFNT OFSIGN NO. 


C I CYC I, ■ CURRENT CRITICAL OFSIGN NO. 

C NCYCL = MAX. AU.OWARI.F NIIMRFR OF CRITICAL nESIGNS 

C KFINVG * nESIGN CONVF RGFNCF COnF 

C =1 OF S I GN IS NOT CRITICAL 

C =? OF SIGN IS CRITICAL FOR 0ISPLACFMFN1 CONSTRAINTS 

C = 3 OFSIGN IS CRITICAL FROM S1RFSS CONSTRAINTS 

C = 4 OFSIGN IS ACCFPIARLF 

C OFI.TA = DFFINFS RAND OF CRITICAL OFSIGNS 

C FPSIL = OFFINFS Al. LnWARI.F WFTGHT I NCR F ASF OVER WTMIN 

C WTMJM = MIN WFIGHT CRITICAL OFSIGN 

c 1 WTMIN = OFSIGN NIIMRFR OF M I N . WT. CRITICAL DESIGN 

C 1 SC ALF = SCALING OPERATION NIIMRFR 

C NSC AL F = MAX. ALLOWABLE NtJMRFR OF SOCCFSSIVF SCALING nPFRATinNS 

C K SC AL F = COOF FOR SCALING OPFPATION 

c = -i scaling should not kf iisfo 

C =0 SCALING is APPROXIMATF. RFANAI.YSF scalfo STRIICTURF 

C =1 scaling IS EXACT, stiffnfss is PROPORTIONAL in SIZE 


MA1N0600 
MAINOM0 
MAIN06PO 
MAIM0630 
MA I N0640 
MA I N0650 
MAIN0660 
MA JN0670 
NAIM06RO 
MA I N0690 
MAIM0700 
M A I MO 7 1 Q 
MA I N07? 0 
MA I N07 30 
MA J N0740 
MA I NO 7 50 
MA I N0760 
MAIN0770 
MAIN07H0 
MA I M0790 
MAINOPOO 
MA I NOR 10 


C -? SCALING IS FXACT. STIFFNFSS IS PROPORTIONAL TO I SI Z E ) *#?MAI N0*?0 

C =3 SCALING IS FXACT. STIFFNFSS IS PROPORTIONAL TO ( SIZFI**3MAIN0fl 40 

C = 4 SCALING IS FXACT. STIFFNFSS IS PPOPORTIONAL TO I S I Z F ) **4HA I N0R40 

C ANO SO ON MAINOBSO 

C Al PA = RELAXATION PARAMFTFR IN 01 SPL ACFMFN7 RFOFSIGN MAINO860 

C MAI NOR 70 

c OMFGA = RATIO OF STRFSS AR F A RATIO TO OISP. CONSTRAINT RATIO MAlNOBRO 

C TO RF COMSIOFRFO IN OFTFRMfNING NO. OF POTFNTIALLY AC T I VFMA I NOB90 

C OISPLACFMFNT CONSTRAINTS MAIN0900 


I OF SM = 0 MAIN09P0 

ICYCL=0 MATN0930 

ISCALF=0 MAIN0940 

MMAX0=2 MAIN0950 

WTMTM=].0F?0 MAIM0960 

IWTM!N=0 MAIN0970 

RFAO( TR,1 00] ) NCYCL, NSC ALF t K SC AL F ,OFL TA, E PS I L , K PUNCH , KPR I NT ,KDI SP, MAI N09R0 
1 riMFGA , Al. P A MAIN0990 

I F( NSCALF.FO. 0) MSCALF=3 MAIN1000 

IF( OFLTA .FO.O.O ) DFLTA=0.05 MAIN1010 

I F f FPSIL. FO.n.O) FPSIL-O. 1 MAIN1020 

1 Ft OMFGA .FO.O. ) OMFGA=O.R MAIN1030 

OFI. T A 1 = 1 . O-OFL 7 A MAIN1040 

0F1.TA?=1 .O + OFLTA MAIN1050 

WRTTFI I W, ?00l ) NCYCL ,KSCAl_F , OFI.TA, EPS U » KOI SP, OMEGA, ALP A MAIM] 060 

C********************** ft****************** *>r****#*******4**#********#fc**MA1N10 70 

C OFSIGN VARIARI.F DATA AOLO ON I], AMIN nM 111 MAINIORO 

£<«****** ****** ************************************************ *****«#***MA I N 1090 


Ml =1 

Ml l+NIIMOV 
N? = N1 -*-NI IMOV 
M3 =N2 +NHMOV 

I F ( M3.GT.MTm ) CALL FRROR { N3-M TOT ) 

CALL OFVARI AIM1 ) , A( Ml) ,A(N?) f Ml IMOY , I 1 , I 11 , IR,1W) 


MAI Ml 100 

MA I Ml l in 

MAIN! l?0 
MA I N 1 1 30 
MAIN 1 ] 40 
MAIN1 150 


£*************************** **************************************** ****f/A!N] 160 
( ; NO OF DATA TO ARRAY STORED ON |R MA INI 170 

£******************************************** ***************************M£|Nl|fl(-) 

A'? = N 1 + 6*MUMNP MAIN1190 


/O 

60 



M?=M?+NUMNP MAlNl?nn 

N4=N3+NIIMNP MAIN1710 

NS=N4+NI)MNP maini??o 

N6=N5+NUMNP MAIN1230 

IFCM6.G7.MTP1) r.Al.L FRRPR { N6-MT0T ) MAINl?40 

CALL INPUT J( A( N1 ) ,A(N?) , A{N3 ) ,fi(N4) t A(N5) * NUMNP , NEO , I R * I R 1 1 W ) MAIN I? 50 

£****************************************** **************************jjj**^£ ]N 1?60 

C p, FHFNT nATA UNIT STIFFNFSS AND load data nN M? MAI Ml? 70 

C UN -1 1 S1RFSS RFCnVFRY 0A1A PN I* MAI N 1 PRO 

C********* ******* *************** ** *********** ******** ***** * ******** **#**MA ini? 90 


MRANO^O 

MAIN! 300 

NUMFL=0 

MAIN1310 

RFWINO 11? 

MA I N 1 3? 0 

MRntlND = 0 

MA I N 1 3 30 

no 900 M=1,NFL7YP. 

MA INI 340 

RFAD( IR,100? ) NPAR 

M A I N 1 3 50 

WRMFC IRINPAR 

MA I N 1 360 

NI|MFL=NI1MFL+NPAR< ?) 

MA1N1370 

M7YPF=NPARC1 ) 

MAIN] 380 

1F{ MTYPF .F0.7) M ROUND =NP AR (? ) 

MA IN1390 

CALL FLTYPF ( A,MTm , MTYPF, !W) 

MAI N1400 


£ ************************************************************* **********MA INl^lO 

C WRITF UNI 7 WFIGHT ARRAY PN fR A NP RFARRANGF STORAGE OF 10 MAIN1420 

C********* ************************************ **************************^ A IN 1430 
CALL II M I T VI T ( A(M1 » , IR,NUMOV) MAIN 1440 

J = fc*MI)MNP MA I N 1450 

PO I?1 1=1 , J MAIN1460 

1?1 AC n=ACNUMPV+I ) MAIN1470 

C ********************************************************************* **ma I N 1 4A0 

c flfmrnt i.nAn multipliers — stprfu pn unit in main149o 

c ****************** ********************#********************************NA IN 1 500 
Ml =1 MA INI 510 

N? = N1+6*NUMNP MA I N 1 5? o 

CALL FLMULTC A( N?) ,LL,IR,IW f I n ) MAIN1530 

M=LL MAIN1540 

IFC KniSP.FO.O) GO TP 110 MA I N 1 5 50 

£********************************************************************* **MAI Ml 560 

C R FAD IN OISPLACFMFNT CONSTRAINTS AND WRITE PN UNIT 112 MA1N1570 

C CONSTRAINTS SHOULO FNP WITH PNF RI.ANK CARO MAlN15ftO 

C IF Nn 0 1 SPI. ACFMFN T CON S TR A I N T S , DON ' 7 LFAVE ANY BLANK CARDS MAIN1590 

C******************* ************************************************** **m A I N 1600 
N3=N?+12*LL MAIN1610 

MN=MTm-N3 MA f N 1 6? 0 

CALL INPUTne AC N1 > f A(N?) ,A( N 3 ) ,MN , Nl IMNP , l L , l D , IR, IW, H2) MAIN 1630 

C ******** ************************ *************************** * ***********MM Ml 640 

C NnnAL LOADS AND MASSFS — STPRFU PM UNIT Til MAIN1650 

C******** ********************************* ** ************** **************MA IN1660 


IF( H .LT.MMAXP) M = NMAXD 
110 MFOR=( Mim-4*LL ) /C ( MRAND+M ) *4 + 1 ) 
NRLflCK = ( NFO-1 )/NFOR +1 
IF CNFOR.GT.MFO) NFOR=NFD 
M3=N? + 6*I.L 
NP3=( N?-l )/?+l 
M4=( MD 3 + N F 0 R *L L * 7 )*? 

IFCM4.GT.MTPT ) CALL FR P PR ( M4-M 1 p T ) 
CALL INLC A( N1),A( N7» , ADC ND3 ) , 

WRTTF ( JW,?007 J 

WRITF C IW,?003)NF0,MRANr),NFQR,NRI.nCK 

writf (iw,?nn?) 


NIIMNP.NFORtLLt IR, IW, III) 


MAIN1670 
MAIN16R0 
MAIN 1690 
MA I N 1 700 
MA INI 7 10 
MAIN1720 
MA I N 1 7 30 
MA INI 740 
MA1N1750 
MAI Ml 760 
MA INI 770 
MA f N 1 7rtO 


f ******************************* **** ************** ****************** *'*** M rt INI 790 


iO 

Cm 



o o 


C FORM FLFMFN7 STJFFNFSS AND LOAD VFCinR AND WRITF ON UN I T I ? MA 

C ********* ************* ***************** ********************************MA 
90S Nisi MA 

CALL FLSTIF ( A( Nil v N(IMDV t NIIHFL . I l • I 2» I 1 1 • 11 2 I MA 

c **************************************************** *******************ma 


C FORM STRUCTURAL STIFFNFSS AMD IPAD VFCFPRS AND WRITF PN UNIT 110 MA 

c *********************************************************************** ma 


MF?R=?*NF0R ma 

ND?=N] +NF?R*MRAND MA 

MD4sNn?+NF?R *LL MA 

N4s(NH4-1 )*? + 1 MA 

N5 = N4+4*I.L MA 

JFtNS.GT.MTPT ) CALL FRROR ( N5-MTnT I MA 

CALL ADD STF ( AD ( N l ) , AD( NO 2 ) , A(N4) , NUMFL , NRLPCK ,NE2R . L L , MA 

1 MRAMO, 12,19,110,111 ) MA 

C ***************************************************************** ******m A 

C SPLVF FOR DISPLACFMFMT UNKNOWNS MA 

c***********************************************************************ma 

MSR=( MRAND+LL )*NFC)R MA 

M2=N1 +NFOR MA 

MD?=M?/2+l MA 

MD^=Nn2+NSR MA 

CALL nSPL (A(Nl),AD(Nn?) * ADI ND3 ) ,NF0R , MB AND , LL , NRLPCK , NSR , I 10, I 3 , MA 
1 I9,1?,TW) MA 

IF(KDTSP.FQ.O) GO TP ISO MA 

C *********************************** *********************** *************ma 

C FIND Pin FOUR MAXIMUM DISPLACFMFNT CONSTRAINT RATIOS MA 

C*******************************************#***************************|4A 

M 7 = N 1 4- 1 D MA 

N3=N?+LD*LL*2 MA 

Mr>3=N3/?+l MA 

MN=( ND3+NF0R*LL”1 >*?-MT0T MA 

T F | MM*GT. 0 ) CALL FRRPR(MN) MA 

CALL MAXD( A( NJ ) , A ( N 2 ) , AD( ND3 ) f NFOR , L L , L D , N BLOCK , I 2 , U 2 , I W , NMA XD ) MA 
£**************************************************«******************#* MA 

C PRINT NODAL D 1 SPL ACFMFN T S MA 

C ************************************************** ********** ***********MA 
150 M?=N1 +NUMNP*R MA 

ND?=M?/?+l M,A 

MD3=ND?*6*LL MA 

WR TTF ( J W. 7004 ) I0FSN MA 

CALL PRINTDC A| N 1 ) , AD( MD2) ,AD( ND3),NE0R, NUMNP ,LL,NRL0CK,NEQ» 12, IB* MA 
. IW,KPRJN7> MA 


********************************************************************* **m A 
COMPUTF STRFSSFS ANn CARRY ONI FULLY STRFSSFD DESIGN MA 

C******* ********** ****************************************************** MJ \ 


M 1 = 1 

M2=M1 +NUMDV 
M3=M?+NUMDV 
Ml=M3+NIJMDV 
N ? = N 1 + 4 #1. L 
MD7=N?/7+l 

N? = IND7-I +NFOR*)_L )*?+) 

I;R = ( MT0T-N3 > /NFO 
IF (LR.GF.l | GO TO 31 
MM = NFO+N 3 

CALL FRROR (MM-MTOT) 

31 1FII_R.GT.LI >LR=LL 

CALL -STRFSSI A( Ml ), A{ M7 ) , A (M3) 
1 NFOR,A,MTPT, II , 17, Ifl f 111 t IN| 


MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

A ( N 1 ) , AD (NO? ) , A (M3) , LL , L R ,NEQ , NUMDV f MA 

MA 


IN 1 ROO 
I N 18 10 
I N 1 R? 0 
IN1R30 
I N 1840 
IN1P50 
I N 1 860 
INIR70 
IN18R0 
I N 1 890 
IN 1900 
1 N 19 10 
IN1920 
IN1930 
I N 1940 
IN1950 
IN1960 
IN 19 70 
IN19R0 
I N 1990 
IN2000 
IN7010 
IN? 07 0 
IN7030 
IN2040 
IN2050 
IN2060 
IN7 0 70 
I N? 080 
IN7090 
I N? 100 
IN? 110 
I N2 1? 0 
IN2130 
I N? 140 
IN21 50 
IN? 160 
IN7170 
IN 71 R 0 
1N7190 
IN7700 
IN?? 10 
I N77? 0 
IN7730 
IN7240 
IN7250 
IN2260 
IN?? 70 
IN72R0 
IN??90 
IN? ?00 
IN7310 
IN? 370 
IN? 330 
IN? 340 
I N? 350 
IN??60 
I N? 3 70 
IN? 380 
IN? 390 



C************** ******************************************************* **MA I N?400 

C FVAtUATE CURRENT DESIGN AND PERFORM REDESIGN MAIN7410 

C*************************************:**********************************MAl N24?0 
IF ( Nf.YCL .FO.O) GP TP 996 MA I N? 430 

M4 = M3 + NI| |Mf)V KAIN2440 

CALL DFSIGN( A( Ml) , A( M? ) , A( M3 > , Al MA ) ,NUMDV, I 1 , 1 B, I H , I W, I P) MA1N7450 

IDFSM=1DFSN+1 MAIN? 460 

TF( KPNVG *60.4 1 GO TP 096 MAIN2470 

IFINDISP.EO.ni GP TP 995 MAIN?4R0 

C ************************************************************* ********** ^A IN? 490 

C CALCULATE DISPLACEMENT DERIVATIVES MAIN?500 

C ******* ****** ********* **** ******** ***** ********************************m A IN? 510 
Him?s MTOT/? MA I N? 5? 0 

CALL DDFRVI A , AD, MTOT ,MTPT? .NRPUND ) MAIN?530 

q*********************** ********************************************* ***MA I N? 540 

C CARRY OUT DISPLACEMENT REDESIGN MA]N?550 

C ************ *********** ******************************** ******* ********* ha I N? 560 
Ml =1 MA IN? 570 

M?=Mi+NUMDV*NDlSP MAIN25R0 

M3=M?+NUMnv MA I N? 590 

M4=M3+NUMDV MAIN? 600 

M5*M4-*-NUMDV MAIN?6lO 

M6=M5+NUMPV MAIN?6?0 

M7=M6+NUHDV MAIN7630 

MM=M7+NI1MDV-MT0T MAIN2640 

CALL OOFS IN! A!M1) ,A!M?) # A(M3> ,A(M4),A!M5),A!Mfe) ,A(M7) ,NUMOV,NDl SP ,MA IN? 650 


1 !1*I?'IP«IW) 

IFIKONVG.NE # 4) GP TP 995 
996 STPP 

1000 FORMAT! ?0A4 /6 1 5 I 

1001 FORMAT ( 3I5,7F10.0»315,?F10.5) 

1002 FORMAT { 1415) 

?000 FORMAmHl,?OA4// 


MAIN2660 
MAIN? 6 70 
MA I N? 6R0 
MA I M?690 
MA1N2700 
MAIN2710 
MA I M? 7? 0 


♦ 

2BH 

NUMBER 

OF NODAL POINTS = ,15/ 

MAIN2730 

• 

? PH 

NUMRFR 

OF FLEMFNT TYPES = ,15/ 

MAI N? 740 

# 

2BH 

NUMBER 

OF LOAD C ASF S =,15/ 

MA JN? 750 

• 

?BM 

NUMRFR 

OF nFS. VARIARLFS =, I 5 ) 

MAIN2760 

2001 FORMAT! / / ?2H 

DESIGN CONTROL OATA // 

MA1N2770 

1 


9H 

NCYCL =,15/ 

MAIN27R0 

2 


9H 

KSC ALE = ,15/ 

MAIN2790 

? 


9H 

DFLTA = , F 1 2 . 4 / 

MAIN? BOO 

4 


9H 

FPSIL =,612,4/ 

MA IN? B 10 

5 


9H 

KDISP =,15/ 

MAIM2B20 

6 


9H 

OMFGA = , F 10 .5/ 

MAIN2B30 

7 


9H 

ALPA = , F 1 0# 5 ) 

MAIN2R40 


200? FnRM AT! / / ) 
?003 FORMAT I 34H 

TOTAL NIIMR6R OF FOUATIPNS 

= , 15, 

MAIN2B50 
MAIN? 860 

1 

/ 3 4H 

RANIW 1DTH 


= , 15, 

MAIN2B70 

2 

/ 34H 

NUMRFR OF 

FOUATIPNS IN A BLOCK 

= , 15, 

MAJN28B0 

3 

/34H 

NUMRFR PF 

BLOCKS 

= , 15) 

MAIN2A90 


?004 FORMAT ( 31 Hl************«*«***********^***/ 

1 ?6H ANALYSIS OF DFSIGN NUMRFR, 14 / 

2 31 h ******************************//} 
FND 


/O 

tn 



SURRnm IMF INPUTJf ID.X.Y.Z , T.NUMNP.NFQ, I A, IR, IW > 


MAI N7940 


(TjJmJ t*************************************** 

r R F A n PR GFMFRATF NPPAL POINT PATA 

£***************************************** 
OTMFNSIPN X(NIIMNP) » Y I NIIMNP ) ,7 INIJMNP ) 
RFWJMP T A 
WR I TF ! TW.700P) 

WRITF( IW, 7.001 ) 

wm n=n 

in r f ad ( ir ,inon)N,( ?n(N,n ,i =1 T * i ,x( Ni 
WR 11FI JW,?007)N, 1 1 D ( N « I » * 1 = 1 .6 ) ,XIN) 
C ******************* * ****** **** *********** 

C r.HFCK IF GFNFRA T ION IS RFOIlfPFD 

£***************************************** 


******#***********************MA]N?950 

MAIN7960 

****************** *#****#*****M^fN;» 9 70 

, I D ( NIJMNP « ft ) , T { NUMNP ) MAIN79R0 

MA ] N? 990 
MAIN 3000 
MAIN3010 
MAIN3070 

• YIN) ,7 ( N) ,KN V TIN) MAIN3030 

.YINIWIN),KN,1(N) MAJN3040 

* ***** ********* ** ** ***** ******MA I N30 90 

MAIN3060 

**************************** MAIN 30 70 


iF(Mni.n.FO.o) go m 50 
nn 7n i=i f ft 

T F ( 1 0! N , I J.FO.O. AND. IDCNPLO,! ) . |_ T . 0 ) 
70 CPNTTNUF 

IFfKN.FO.O) GO TO 90 
Nl JM = ( N-NPLO) /KM 
N|IMN = NIJM~1 

I F( NIJMN.l.T.l > GO Tn 90 
XNHMaNUM 

DX = ( X(N)-X(NPLD) I/XNIIM 
DY=( YfN)-Y(NPI.D) J/XNMM 
D7=( 7 C N ) -Z ( NPLD ) ) /XNIIM 
m = (TIN)-T(Nni_0) I/XNUM 
KaMPl.O 

nn 30 ,i=i ,numn 

KK =K 
K=K+KN 


MAIN30RO 

MAIN3090 

! n ( N , I ) = I D ( NPL I.) , I ) MAI N3 100 

MAIN 31 10 
MAIN3170 
MAIN3130 
MAIN3140 
MA IN3150 
MAJN3160 
MA IN31 70 
MAIN31R0 
MAIN3190 
MAIN3700 
MAIN37 10 
MAIN3770 
MA I N37 30' 
MA I N 37 40 
MAIN3750 
MAIN3760 
MATN3770 
MAIN37RO 
MAIN3790 
MAIN3300 
MAIN3310 
MAIN3370 
M A I N 3 3 3 O 
MAIN3340 


X( K ) = X! KK )+ 0 X 
Y ( K ) = Y ( KK ) + DY 
7 t K)= 7 . (KKI+D 7 
1 { K ) = 7 f KK )+DT 

nn 30 i=i .ft 

T D{ K . I ) = I 0( KK . I ) 

TF ( intK.T l.GT.l ) [0( K,I ) = I0{ KK.H+KN 

?n continue 
sn wnin=N 

IF(M.NF.NUMNP) GO TO 10 
£************************************************************* **********MAIN3350 

C PRINT AM NPOAL POINT DATA MAIN3360 

p, *********************************************************************** MAIN3370 


WR H F ( I W . 7003 ) MAIN33BO 

WR ITF ( 1 W.7001 ) MAIN3390 

WRITF ( I W * 7009 ) IN . (I nl N ♦ I ) , I = 1 ,ft ) , X I N I . Y I N ) , 7. ( N ) , 1 < N ) ,N* 1 ,NUMNP ) MAIN3400 


0***** ************************ ****************************************** MAIN. 34 10 

c MtiMRFR UNKNOWNS AND SF 7 MASTFR NOPFS NFGATIVF MAIN3470 

0* ************ ************************************************* ********* MAIN 34 30 


M F n = 0 

nn ftn n= i .niimnp 

nn ftn i=i ,ft 

mi m, i )= iarsi iniN , i ) ) 

I F ( ID ( N , T )-t ) 97.9fl.99 

97 NFO=MFO+ 1 
ID( N, I ]=NFP 
GO TP ftO 
iniM.M^O 
GO TO ftO 


MAIN3440 
MA IN3450 
MAIN3460 
MAIN3470 
MAIN34AP 
MA IN3490 
MA I N 3500 
MA IN3910 
MA I N 3970 
MA IN3930 



sq intM.T i=-tntN, n 
f > 0 nflNTTNUF 

WRITF! 1W.200M <M, I f r>( N , I ) , ]=1,6),N=1 .NtlMNP) 

WRITF! 1 R > ID 
RFTIIRN 

mnn format t 7i5,3Fio.o. is *Fin.m 

2000 FORMAT!// ?3H NODAL PniNT INPUT DATA ) 

2001 FORMAT l 5HONODF ,3X,?4HftOUNnARY CONDI T 1 ON CODES . 3X. 

1 39H / NODAL POINT COORDINATES //. 

2 7H N|JMftFR t ?X.1HX v 4X'lHY v 4X'lHZ , 3X * 2HXX . 3 X . ?HYY , 3X , ?Hl l , 1 ?X , 
?1HX,1?X,1HY,)2X,1HZ,1?X.1HT/) 

2002 FORMAT ( IS .6 IS t 3F 1 3 .3 ♦ 1 5 *F 1 3 • 3 ) 

2003 FORMAT I// 21H GFNF&ATFO NO DA I. DATA) 

200* FORMAT I ft 17H FOUAJION NUKRFRS// 

1 3SH N X Y Z XX YY // / ! 7 I 5 ) ) 

200*1 FORMAT U5 ,M5.*F 13.3) 

FND 


MAIN3S*0 
MAIN3550 
MAIN3560 
MA IN3S70 
MAIN35M0 
MAIN3590 
MAIN3600 
MAIN3M0 
MAIM 3620 
MA I M3630 
MAIN3640 
MAIN3650 
MAIN 3660 
MMN3670 
MAIN 0 
MAJN3690 
MAIN3700 


SlfRRflfll INF OF VAR (OWT. AOLO. AM I N .NRVAR , I 1 , I 1 J , I R , 1 W | 

C ************* *4 ***««* ************************** ********* 

C R F A 0 OR GFNFRA1F 0FS1GN VAR1ARLF DATA 

C ******* ****** ********** * ************* * * *** * ************* 

01 MFNS I ON Ani_n!NOVAR),AMIN(NDVAR),IIWT INOVAR) 

REWIND II 
RFWINO 111 
MOLn=o 

WRITF (IW.IOO) 

9 RFADI IR, 1DI )N f AOj_n| N) , AMIN! N) 

MN=N-1 

I F ( NN.EO ,NOLn )G0 TO II 

KK=N0LP+1 

no 10 l=KK,NN 

AOLOI I )=APLO|N) 

10 AM fN{ r ) = AM I N ( N I 

11 MOLO=N 

1 F( N.LT.MOVAR)GO TO 9 
00 13 N = l » NOV AR 
0WT1 N ) =0 * 

IF! AOLD(N).LT . AMIN(N) ) AOLOI N ) = AM I N ( N ) 

13 WR I TF( I W * 1 02 )N « AOLD! N ) t AMIN( N) 

WRITF III) AO I 0 
WRITF! Ill ) AMIN 
RFTHRN 

TOO FORMAT!// 35H OFSIGN VARlARI.F INPUT DATA // 


MA I N 37 1 0 
***************MAIN3720 
MAIN3730 
************ ***HA IN37^»0 


1 33H OFSIGN 

? 3SH V A R I A ft L F 

3 3SH NIJMRFR 

FORMAT! I S . ?F 10.0) 

FORMA 7 ( f6.2X.2F1 3.4 ) 

FND 


I Mil 1 A|. 
vai.nf 


MIN ALLOWARLF/ 
VAI.MF n 


/O 

-v) 



UC 0 


SHRROUI I NF FL7YPF ( A ,M TOT * MTYPF r I W ) MAIMAO-Ul 

£ 44*4*4444*4444*4*444*44444444 ***««# i*:***#* ** 4 * 44 4444*444*444**444444 4444MA I NAOAO 

CALL A PPR OPR I A 1 F FLFMFNT SUBROUTINE in DF VF I.OP FLFMFNT MATRICES MAINAOSO 

44***444*44 *444 44 44*44 4*444444444 4*44*4444444 4444444 4444444+44444444444MA ] NA0 60 
OTMFMS1PN A I M 1 0 T ) MA I NA070 

on to < 1 ,? ,3 *a , s,6 *7 ,p ) ,mtypf ma i naopo 

*4*4**4*444***444***44*44444444444 * ********* *****4 ********************* MA I NA09 0 

THRFF njMFNS inNAL TRUSS FLFMFNTS MAINAIOO 

£****4*****4*******************44****iii4*4**4:***44*44*4444*4**4*4*4444*44MAIMAllO 
1 CALL TRUSS ( A , MTPT ) MAINAlPO 

on to 900 maina )30 

£***44444*4**4444444***44444**4*4444444*4444444*4*44**44****4*44*4444444MAINA1A0 

C THRFF PIMFNSIONAL RF AM FLFMFNTS MAINA150 

£4****44*4*******4*****44**************4**444U:**4***4***44*4***44444****MA 1NA160 
? CALL RF AM (A.MTPT) MA1NA170 

OP TP 900 MA1NAVR0 

£* 44 ** 4 ************ ******* ************************************** ** 44 ****j^ IMA 190 
C PLANE STRFSS FLFMFNTS MAINA?00 

C ********** ******* ****** *********** *************** ******* *******44444* **MA I MA? 1 0 

3 CALL PLANE ( A t M Tfl T ) MAJNA770 

on in son maina ?30 

C ********* *************** ********* ********4**************4 ******** ***4**MA \ NA? AO 

C SHF AR PANFL ELEMENTS MAINAP50 

£*************** 4*444*4 *********************** **4*4*4+** ***4*4 *4444*444 *m A I NA? 60 
A CALL SHF AR (A,MTOT) MAINA270 

OH TO 900 MAINA7R0 

C * 4**44 ******** 1 ** 4 * *4 *444444444444*4 *4444*4*** ***4***4*#*4*4***4*44*****MA I NA290 

C PROVISION FOR PTHFR TYPES OF FLFMFNTS MAINA300 

£4******44#**** 444* *44444 4 444 4444444 4*44* *4*4 44 ****** 44* 4**4*4*444* *44 **MA I NA31 0 

5 CALL NPELFMt MTYPF.n, IW » MAINA370 

on TP 900 MAINA330 

£4*44* 4444 *44* 44*44 *44 *4444 4 4444**44* *4 4*4 4 444444 44* *44 444 44* 4 *44444 4 444MA IN A3 AO 

C PLATF/SHFLL FI.FMENTS MAINA350 

Q 44 4 44444*4444 44 *4 44444 4444 444 44 4*4*4 444444444444**4***4444444444444*444HA I NA360 

6 CALL SHFLL ( A * MTnT ) MAINA370 

OP TP 900 MAINA3R0 

C 444**4 4 4 4444*4 44444 *4 44* >6 444 4444**4 * 4 * * * * 4 * * 4 4 4 * * * 4 4 * 4 * 4 4 * * * 4 4 * 4 * 4 * * * 44 M A I NA390 

C RniJNOARY FLFMFNTS MA I NAAOO 

(■ 4444444444444 * 44*4 4 44**4 4*444*4444444 444 44**4 4 444*4 4 444**4*4*4* 444444 *4 MAI NAA1 0 

7 CALL RnUNO ( A ,M TO T ) MA I NAA?0 

OP TP 900 MA1NAA30 

£4444*4+44*4444444444444444444444**44444444444444**44*4*44*4**4444**444*MAINAAA0 

C PRnVISIPN FOR PTHFR TYPFS nF FLFMFNTS MAINAA50 

£*444444 44 4444 4* 44 44* 44 4444 4444* 44444 44* 44 44 4444 *4 444444 4*4444 4444*4 444 4 MA I NAA60 
fl CALL NPFLFMIMTYPF.O, mn MAINAA70 

900 RFTIIRN MAINAARO 

FMD MAIMAA90 


SURROIITINF NPFLFM ( MT YPF , KPPF , I W > MA 

£44*444*444444*4*4*444444*44*4*44 * *444*444**444*4*444444***444444 4* 4*4 44 MA 

C PRINT THE MFSSAOF THAT RFOIII RF0 FlFMENT SURRPUTINF IS MISSING MA 

£44444444*4444444444 44 *4444*4*444444444444444444444444444444*4 44 444 44 4 44 MA 
WRITE ( IW,1O0l MTYPF MA 

IF (KPOF.NF.O) WRITE (IW.lOl) KOOF MA 

STOP MA 

100 FORMAT I//A6H THF FOLLOWING FLFMFNT HAS NOT RFFN PROGRAMED: MA 

1 1AH FLFMFNT TYPF=,I?) MA 

101 FORMAT ( 1 AH f.PN STRN CPDF^.I?) MA 

FMD MA 


INASOO 
I NAS 10 
l NA 5? 0 
INA530 
I NAS AO 
1NA550 
INA560 
INAS70 
INA5M0 
INAS90 
IMA600 


SlIRRPin INF UNITWT (UWT, IRtNDMOV) 


MAIN4610 




C WRITE UNIT WEIGHT PN TAPF IP MAIN4630 


PIMFNSIPN IJWMNMMOV) 
WRITE! IRJMWT 
RETURN 
FNn 


MA I N46S0 
HA I N4660 
MAIN4670 
MAIN46R0 


SUPRnUTINF FLHULTI STR f LL ,IR ,IW, 111 ) MAIN4690 

C 44*4 ************** ***«4**** *********** **4*4^4* t**************#*********^} na7oo 

C RFAO IN STRIICTURF LOAD MULTIPLIERS MA I N47 1 0 

f- > 4444*44444444**44*4 4***4±*4444****#*4*4ft*44**44*******4**4*********44**MAl N^t7?0 


0 IMF NS I PM STR(4,LL) MA TN4730 

WRITF! JW, 2000) MAJN4740 

DP sn L = 1 ,IJ. MAIN4750 

RFAO! IR,1 00?) (STR I 1 ,U ,1 =1 *4) MAIN4760 

SO WRITE! I W f ?00? I L*( STR( I *U ,1=1*4) MATN4770 

WR MF (Ml) STR MAIN47RO 


RFTURN MAIN4790 

100? FORMAT (4F]0.n> MAIM4R00 

?000 FnRMAT(//10H STRUCTURF ,12X ,?ftHSTRIJCTURE LDAP MULTIPLIERS/ MAIN4A10 

• 10H LOAD CASF.9X, 1HA,9X,1HR,9X, lHC,9X,lHn/ ) MAIN4R?0 

200? FORMAT ( lft,7X*4F10.3) MA I N4R30 

FNO MAIN4R40 


SIIRROMTINF INTFRP ( F ,FF *N||MTC * NUMMA T , MUM1 ,N(IM? , NT, MAT , TFMP ) MAIN4R50 
C 4444444444 4444*4444444 4*4444444444444 44444 4*4 4444444*44$44444**444*4*4*MA I N4B60 
C INTERPOLATES MATERIAL PRPPFPTIFS FOR AVER AGF ELEMENT TEMPERATURE MAIN4P70 

C 4444*4***4444 *444 444*44444 *4444 4*4*4 444 ***** 4*44444*4** 444**4********4*M A IN4PP0 



implicit rfal*r (A-H,n-z) 

MAIN4R90 


RFAL*4 F 

MA IN4900 


niMFMSIPN F(NUMTC*NIJM1 ,NUMMAT ) ,FF (NUM?) 

MAIN4910 


1 F( MT.NE .1 ) GO TP ??0 

MA I N49? 0 


pn ?in kk=i ,niim? 

MA I N 49 30 

210 

FF(KK)=F( 1 v KK+l'MAT) 

MAIN4940 


GO TP ?*n 

MAIN4950 

220 

nn ? to 1=2, NT 

MA T N49ft0 


1 1= T 

MAIN4970 


T1=F( 1 - 1 ,1 f M A T ) 

MA IM/ t 9R0 


T?=F(1*1*MAT) 

MAIN4990 


I FC T?*GF .TFMP) GO TH ?A0 

MA INSOOO 

2?0 

CPMTTN1IF 

MAiNsnm 

?40 

RI=( T2-TFMP ) /( T2-T 1 ) 

MA IN5020 


R *•- ( TF M P— T 1 ) / ( T?-T1 ) 

MAINS030 


OP ?S0 KK=] f NUM? 

MAINS040 

?sn 

FF(KK)=F( M-lfKK + 1 ,MAT)*RI+F( 1 | ,KK + 1*MAT»*R.I 

MAINS05O 

?so 

RFTURN 

MA1N5060 


FNp 

MAIN5070 


/O 



."innr 


SI IR R ni IT IMF c ALBAN | NOT F t I.M f S,P , ST . T T , MU , N V , N S ,Nn, MW , MVAR , IEX«FRC > MAINSORO 


CALCULATE RANHWinTH PF STRUCTURE STIFFNESS MATRIX MAIN5100 

■WRJTF UNIT STRESS RFfnVFRY MATRICES AMO S T R F S S-CHRR FC T I ON MA 7 R If, FSMA T NS 11 P 
riN tape in MAiMSipn 

C- WRTTF UNIT STIFFNESS AND I.PAP VFCTPR UN T A PF II? MAINS 13U 

r/£*********** 4 *$****#******#*************#*#**#***^*#**************#%**MA INS 140 


IMPLICIT R F A I. * R (A-H,P-Z) 

PFAL *4 FRC 

PIMFNS I PM I.M(wn) t S( Nn,Np,NH) ,(*( NP,A,NV ) , ST (NS,NP,NU) , TT(NS»4,NW ) 
1 * I S( M 

C PMMPN/FL P AP / MPARI 1 4 ) , NIIMNP . MR AMP , I FI.P ( 1 7 I 
COMMON/! IN I TS/ IR , TW * IP , 11 1 1 ? * 13 , I B » 1 9 f I 10 , I 1 1 f I 1 2 
MI M=1 nnpoo 
M A V = 0 

op rod i.= ],np 
TF ( LM( I.) .FO.OJ GP TP ROO 
IF (I.M(U.GT.MAX) MAXsLM(LJ 
TF ( I.M( i_ ) , I. T , M I N ) MTM«LM( L ) 

ROO CPWTIMUF 

MP I F = M A X -M I M + 1 

IF ( MP JF.GT.MRA Nil) MRAMn = MDIF 
LRn = ft+ND*( T +NH*M|T+MV#4 ) 

I SI 1 ) =NI I 
T SC 2 )=mw 
IS( ?)=MS 
IS( 4)=Mp 
I S ( S ) = } PV AR 
!S( M = IFX 

WRTTF! IP ) I S • F R C • L M ♦ S 1 * T T 
IS( 1 ) =!. R n 
TS( ?I=Mll 
ISM > =MW 
I S ( 4 ) =NP 

WRTTF! II 7 ) IS*FRC*1_M,S ,P 

RFTIIPM 

FMP 


MAI NS15P 
MA JMSlftP 
MA I NS ] 70 
MA IMS1 RO 
MAINS190 
MAI MS? 00 
MAINS?10 
MAINS??0 
MA I NS? 30 
MA I NS? 40 
MAINS? 50 
MA INS? GO 
MAINS?70 
MA IMS?P0 
M A I N S ? 9 0 
MAINS300 
MA I NS 31 0 
M A I N S 3 ? 0 
MAI NS330 
MA 1 NS34 0 
MA I NS 350 
MAIM S3 ftp 
MA I NS 370 
MAINS3R0 
MAI MS 390 
MA I NS400 
MA I N5 41 0 
MA INS4?0 
MAINSA30 
MAJNS440 


SIIRRPUT IMF RFARAM! S,SS,NM1 ♦ M M ? , N M 3 • N 1 ,M?.M3,NM) MAJMSASO 

£$#**«:*«********#** 4 #*#*££*****$***#** 


C RFARRANGF MATRIX S MA I NS470 

C***$*j(f*^**$* «**«$**#**# **>::<:<f****#*«*tf<«**#*****fc*#*#*$^«$*#$£#>(f*##<=****MAIN 54 R 0 


IMPLICIT RFAI.*R ( A — H » P - / ) MAJNS490 

PIMFNS I PN S(MM1 ,NM?,MM3 ) , SS(MN ) MAI MS 500 

I I =0 MAINSS10 

nn in k=t ,m3 maimss?o 

nn jo ,) = i ,n? ma imss30 

PP 11 T = 1 *NT MAIMSSAO 

n SS( I I + T ) =S( I * .1 f K ) MAINSS50 

IP II = JT+M1 MAINSSf-O 

RF TURN MATNSS7P 

FMP MAIMS5R0 


orb 


SMRRnUTINF VFCTORI V,XI ,YI ,71 ,X.I ,Y.J *Z .1 ) MA I N S S Q 0 

***$$******* £***#***$<.**.<«** «$***$* ***$$$******$# ******.**** 1 *#*** MA I N5R00 

C CAI_r.IM.ATF COMPONENTS OF A VFCTPR MAINSMO 

C**********^************************** **$*£$****>}<**:{<* «*****£#******«£*:{:>!: M A INS620 


IMPLK.IT REAL** (A-FUO-Z) 

M A I N5F> 30 

OIMFA'.SJPM V(A) 

MAJNS6A0 

X=XJ-X I 

MAJN5650 

YssY J— Y I 

MAIN5660 

7 = 7 J-7 I 

MAIN 5ft 7P 

V(,i) = nSORKX*X+Y*Y+7*7 ) 

MAIN56R0 

\/( 3)=7/V( A) 

MAIN 5^90 

V( ? ) = Y/V( 6) 

MAIN5700 

'/( 1 » =X/V( A ) 

MA I N 57 1 0 

RFTIJRN 

MA I NS 7? 0 

FNP 

MA I NS 730 

SIIRROIIT INF CROSS! A , R,C) 

MAINS7A0 

£*********************************************************************** MA] NS 750 

C r.Rnss proouct of twp vectors 

M A I N 5 7 ft'0 

C *********************************************************************** MAI NS 770 

IMPLICIT RFAL*R { A-H, n-Z ) 

MAINS7R0 

niMFWSJON AI4),R{4),CI4) 

MAIN5790 

X = A( ?)*R( 3 >-A( 3 )*R( ?) 

MA INSfiOO 

Y=A(3)*R(l)-A( 1 )*R( 3 ) 

MAIN5A10 

Z = A[ 1 )*R( 2 1 — A ( ? )*R( 1 ) 

MAIN5B20 

0 f A )=PSORT ( X*X + Y*Y+7*Z ) 

MAIN5R30 

Cl 3)=Z/C( A) 

MAIN5840 

C(? J=Y/Cf A) 

MA/N5R50 

C( l)=X/CI4) 

MAIN5RftO 

RETURN 

MAI N5870 

FNP 

M A I N5880 

RFAL FUNCTION OOT*R ( A,R) 

MA TNSR90 

C * **************** * ***** ******************* ** 

**** * ********** *********** *m A I NS 900 

C POT PRODUCT OF TWO VFCTORS 

MAINS910 

£********************* **************************************************MAI N5920 

IMPL 1 C I T RFAL«R ( A-H,n-Z ) 

MA INS930 

nrMFMSinw a( a j ,*(& i 

MAI NS 940 

POT=A( 1 )*R( 1 )+A| 2>*R( ?) + A(3)*H( 3) 

MAIN5950 

RFTIJRN 

MAINS960 

FNP 

MA1NS970 


SUBROUTINE FRROR(N) MA 1 NS9 80 

*$****** s* ***** *************$*************************$ ****:********M A INS990 


c PRINT STORAGE F XCFF OF D MFSSAGF MATN8000 

£****************** *****************************************************MAIN<S010 


COMMON /UN ITS/ IR*1U V IP,1 l v 17,n v |R,!9. Mn.I 11*112 MAIN6020 

WRITE (IW t ?000) N MAIM6030 

2000 FORMAT ( // ?PH STORAGF FXCFFPFO RY t JM MA I Nfc040 

STOP MAINA050 

FNP MA I NfcOfiO 


Q. 11 



StlRRHin INF INPIITD ( in, TR , DCON , M , NUMNP , LL , L D , I R , I W , I 1 ? > MA 

C£*3*******#***>)^$******* *******************£**************#*****#*** 

C R F A n DISPLACEMENT CONSTRAINTS AND SET HP DISP. CONSTS. TABLE HA 

C <■**** if: * * *$$««>* * 4 $$ 4 4 4 44444* 4 44*44 4 ifr * 4*4 r}c 4 4 4444*444444444*44*4* *M A 


niHFNSIPN iniNUMNP,ft),TR(LI.,l?),ncnN|M» 
CDMMnM/ JUNK / R(l?) ,JUN1(?8R> 

r.nMMDM/FM/ mnisoftft) 

WR I T F ( I W ,1001 I 
tn=o 

MC=0 
L r n = o 

nn rsi 
nn rsi 


1=1 , 1.L 
J=l,l? 

RSI TR( I ,J > = o.n 

nn 900 NN=l, NUMNP 
1 F( NN.FO.l )GP TO 100 
ISO |F(N.MF.NN> GO TO 400 

nn 2 oo i = i ,ft 

TRII.,1 ) = ARS( R{ I ) > 

200 TP,( I. , I +M =- ARM R( I +ft ) ) 

Nf.= 1 

100 RFAO( IR.1001 >N,|_,R 

on in jso 

400 tf(nc.fo.O) r,n to 900 
mc=o 

nn poo j=i .ft 
nn 70 1 = 1, ll 

l F ( TR( 1 ,.l) .NF.O..OR.TR( I , J + ft > .NF.O) GO TO RO 
70 f. nw 7 I Nl I F 
GO Tn Rio 
RO M = in(NN,J) 

I F ( II) R1 0,810,810 
R^O 10 = 1.0+] 

inm in > = 1 1 
nn 10 1 = 1 ,u 

nCHN( LRO+I.L+ I ) =TR I I, J+ft) 

10 nrnM(LRn+i )= tri i,j> 
i.Rn=i.Rn+ 2 *u. 
go in poo 
R io nn r 1 s i=i ,ll 
tri i,j)=o. 

R1S TR ( 1 ,J + ft ) = n. 

ROO r.nMTINIIF 

WR1TFI I W, 2001 ) (NN, I .( TR( I , J) , J = l, 1? ) , 1 = 1 ,LL) 

nn pso 1 = 1 , ll 
nn rso j=i , 1 ? 

PSO TR f I , , 1 ) =0 .0 
900 CnMTINUF 

MT = l.n*?*U.-H 

IFIMT.GT.O) CALI. FRROR(MT) 

WRiTFin?) unnn ) * 1 = 1 , i.n), mcnw* 1 > , 1 = 1 ,lro) 

RF TURN 

1001 FORMAT! 2T4, IPFft.S) 

2001 FnRMATI 1 X,2IS , 12F IO.S ) 

1001 FPRMATI//41H NOPAL 0 1 S PL AC FMFN T /RP T A T I PN CONSTRAINTS// 

112H Nni»F LOAD , 1 1 9H / MAX.AU.tfA 

2PHARLF 01 SPI.ACFMFMTS AND ROTATIONS MA 

1 //,HH NO. CASE , 4 X ,?Hnx,HX, 2 HPY, MA 

4RX,?nn7,RX,?HRX,«X f 2HRY,RX, ?HRZ ,7X, 3H-0X, 7X , 3H-DY , 7 X , 3H-0Z ,7X, MA 
S1M-RX ,7X,1H-RY*7X .1H-R7 ) MA 


MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 


IN6070 
I Nft080 
INft090 
rNftioo 
INftllO 
I Nftl 20 
INftllO 
I Nftl 40 
INftlSO 
INftlftO 
I Nft 170 
I Nftl RO 
I Nft 190 
I Nft? 00 
I Nft? 1 0 
I Nft? 2 0 
I Nft? 30 
1 Nft? 40 
I Nft? 50 
I Nft? ftO 
I Nft?70 
I Nft? RO 
I Nft?90 
INft300 
INftHO 
1 Nft3?0 
I Nft 330 
INft340 
I Nft350 
I Nft3ft0 
lNft370 
I Nft3 RO 
!Nft39P 
TNft400 
I Nft4 1 0 
I Nft470 
IM6430 
1 Nft440 
IN6450 
1 Nft4ft0 
INft470 
I Nft4R0 
INft490 
INftSOO 
INftSlO 
I NftS? 0 
I Nft530 
INft540 
INA550 
I NftSftO 
INft570 
INftSRO 
INft590 
I NftftOO 
I Nftft 1 0 
I Nft67 0 
IN6630 
I Nftft40 
IM6ftS0 
I N ft ft ft 0 
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FMD 


MAI N667 0 


simRniniNF inl ( ip, tr,r,niimnp,nfor,ll, ir , I w, n l» main 6 gro 

C****************** ********$** ***** *** * ******* ******** ******** **********^A I N6690 

C INPUT NODAL LOADS MAIN6700 

£******* ****** ** * **** * ***** ********************************************* MA IN67l(l 



RFAL*fl B(NFQR,LU 

MAIN6770 


OTMFNSinN I 0{ MIJMNP *A ) ,TR(6,LU 

MA I N6730 


COMMON/ JHNK /R ( 6) ,JHM{?94) 

MAIN6740 


KSHF=0 

MA 1 NS7 50 


WRT7F (IW,?no?) 

MAIN6760 


on 7S0 1=1 ,NFOR 

MA1M6770 


on 7S0 K=1,LL 

MAINA7R0 

7So 

R( T,K>=0.0 

MA1NS790 


no 900 NNss 1 t NUMN P 

MAINSBOO 


on mo 1=1 , a 

MAIN6P10 


on ioo j= l * li. 

MAIN6R70 

ino 

TR( I f .11=0.0 

MA I NSP30 


IF(NN.FO.l) GO TO 300 

MAINSP40 

iso 

IF(N.NE.MN1 go to 400 

MA I NSR 50 


nn ?oo i=i.a 

MAIN6P60 

2 nn 

TR( I,U=R( I ) 

MA INSR 70 

?no 

RFAO ( IR, 1001 ) N , L i R 

MAINSRPO 


IF ( N.FO.O) go to 1 50 

MAINSR90 


WRITE! JW,?001 ) N , I. » R 

MAIN6900 


GO TO ISO 

MAIN6910 

400 

no roo j=i,a 

MA1NG970 


1 1 = I0( NN *,J ) -KSHF 

MA I NS930 


IF III) POO, ROO, SOO 

MAINS940 

soo 

nn soo k = i , ll 

MA INP950 

fton 

PI II,K)=TR(J,K) 

MAI NS960 

(Sin 

I F( I I ,NF .NF OR I GO TO ROO 

MA I Nf*9 70 


WRMFI JU 1 P 

MAINS9R0 


KSHF=KSHF+NFOR 

MA INP990 


nn 700 1=1, NFQR 

MAIN7000 


nn 7oo k = l * i. L 

MAIN7010 

700 

R( I ,K ) =0. 0 

MAIN7070 

ROO 

CONTINIIF 

MAIN7030 

900 

COM TIN! IF 

MAIN7040 


WR 1 T F ( IU) P 

MAIN7050 


RFTIIRN 

MAIN7060 

loot 

FORMAT ( ?TS *7F 10.4 ) 

M A I N 7 0 7 0 

7001 

FORMAT (7IS,AFn.3) 

M A I N 7 0 8 0 

2007 

FORMAT! //1PH NHOAI. POINT LOAns // IOH NODE L0An,?3X , 

MA1N7090 


. 14HAPPLTF0 LOADS / IOH NO. CASF ,9X, ?HRX, 11X, 

MAIN7100 


> 2HRY *1 1 X »?HP7 ,11X , ?HMX , 1 IX , ?HMy ,11X*7HM2 1 

MA1N7U0 


FNn 

MAIN7170 
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SIIRROHTIMF FI.STIF < AOLn f NUMnv f MHMFL* I 1« I?. n 1. ! 12) MA I N7 1 30 

C** *#***£ *«*#*#********$*£***£*******£**** ***********£***:)^*#****#****#*MAIN7]40 

C FORM FLFMFN7 STIFFNESS FROM I IW I 7 STIFFNFSS MATRICES MAIN7150 

q^*****^^##*#*:!**^*!!;**^*^^***#^^*#^^*****^###*^#*^^* *<«#*****♦’!<**#***♦*♦** MA I N71ftO 
IMPLICIT RFAL*R (A-H.P-Z) MAIN7I70 

R F A L *4 Ani.n t FRC MAIN71R0 

DIMFNSinM Anm (MUMnV) T Sl( 74 ,74 ) , S? I 74, 24 ) , PI ( ?4,4) ,P?J ?4, 4 ) MA I N7 1 90 

CCIMMON/FM/LMI ?4) , S(?4,?4, ?) ,P(?4,4 t ?) ,FM1 ( 1 177 ) MAIN770O 

FOUIVAI.FNCF < SI »S ) t ( S?,S( 577 ) ) ,( PI ,P ) , ( P? f P( 97) ) MAIN7710 

RFWIMO J1 MAIN7770 

RFWIMp I? MAIM7730 

RFU'INP 111 MAIN7740 

RFWJMP 117 MAIN7750 

R F A D( I 1 ) Adl.n MAIN7760 

nn ion m = i,niimfl main7?7o 

RF A D ( II?) LRO, Nll f NV f Mn* IHVAR , IFXvFRC* M.M( M , 1=1 ,N0) , ( ( (S( I , J.K ) , MAIN77R0 
1 1 = 1 ,wnj ,J=1 ,Nfl) ,K=1«NII) ,( IIP! I ,,»,K)*I=l.Mn) , J=l,4) ,K=1«NV) MAIN7?90 

I F ( IDVAR.FO.O) on m 10f> MAIN7300 

ARFA = AO|.n( inVAR)«FRC. MAIN7310 

XIMFRT = ARFA** IFX MA I N7 3? 0 

nn 101 1=1 f MO MAIN7330 

on 10? J = 1 ? 4 MAIN7340 

10? PI ( T « J ) = P1( I ,,)>*ARFA MAIN7350 

00 ]01 J=1,M0 MAIN73F0 

101 S1M,.)) = S1( I.J)*ARFA MAIN7370 

1 F ( Nil • F 0 . 1 ) r,n Tn 10S MAIN73R0 

no IOA 1 = 1 ,wn MA r N7390 

nn 104 j=i,Nn maim74oo 

104 si( I .,1) = S1( 1 «.I) + S?( 1 , J)#XINFRT MAIN7410 

1 OR JFfMV.FO. 1) nn Tn 10F MAIN74?0 

nn 107 i =1 ,Nn ma IN7430 

on 107 J= 1 » 4 MAIM7440 

107 Pit 1 ,J)=PH I ».n + P?( lf. 1 ) MAIM 7450 

1 OF LRn = M0*tMn+4) MAIN7460 

NM=Nn*NO MAIN7470 

CALL RF AR AM I S 1 » S 1 t 74 t ?4 f 1 f Nn , MD. ] . NN ) MAIM74R0 

MN = N0 *4 MA I N7490 

CALL RFARANtPl ,Pl f ?4,4,1 ,Mn,4,l,MN) MAIN7500 

CALL FI.S TFW( LRn,Nri t LM # Sl »Pl 1 121 MA IN7510 

inn CPMTIMIIF MAIN7570 

£**##*#***#*** to*************************************************** *****#Mk 1 ^ 1 530 

C R F A n AMIN TP AHVANCF UNIT 111 TP NFXT RECOUP : STR MAIN7540 

P< f ******«****< : < ; ******* > v- t SM(:*#*)ir^** S * ! fN#** ! >^^**** ! l t *#«* : {t^^* ! fr«***ii.s! t *###*****»} t #MAIN7550 
R F A P (111) APl.n MA1N75FO 

RFTIIRM MAIN7570 

FMP MAIN75R0 


SURRnilTIMF FLSTFW( |.RO,Nn t LM,Sl ,P1 , 1?) MAIN7S90 

f******#:',:**** ******* ********************************************#*******^£^ 17 ^ ()Q 

C WR 1 T F FI.FMFNT STIFFNESSES PN T AP F I? MA1N7F10 


£***************************** ******************************************^AIN7^;>n 


IMPLICIT RFAI_*R { A-H.P-2 ) MAIM7F30 

niMFMSIPM l.M(wn) ,Sl(Nn t Mn) *P1 IMP t 4) MAIN7F40 

WR I T F ( I ? ) LRn.Mn.l M,si .PI MAIN7F50 

RETURN MAIM7FF0 

FMO MA JM7F70 
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SHRRHin IMF AOOSTF( A,R,S 1 R.NI|MFI. ,NR|.nCK,MF?R,LI.,MRANn ( 12,19,110, MAIN76R0 
1 111) M A ] N 7 h 9 O 

£************ ************************************** ********** ***********|M j N7 700 

C FORMS GI.ORAI. FOUIURR1UM FOflAT 1 HNS IN RI.HCKS MAIN7710 

C******************* ************************************* ***************MA1 M7 720 


RFAL*R A(NF2R,MBAM0) ,R(NF?R,LL ) ,SS 

MAI N77 30 

n J MFNS 1 ON STP(4,LU 

MA I N 7 740 

COMMON /FM/ l.«n,Nn,LM( ?4 ) ,SS( f>72) ,FM1 ( 3^96) 

M A I N 77 50 

MF0B=NF?R/2 

MAJN7760 

K=MFOR+ 1 

MA IM7770 

X-M BLOCK 

MAIN77H0 

MR = SOR T( X) 

MAIN7790 

MR = MR /? + ) 

MAI N7 BOO 

MFBR=MR*MF?R 

MA1N7R10 

MM=1 

MAIN7R20 

MMM9=0 

MA IN7830 

MSHIFT=0 

MAIN7R40 

RFWJMO no 

MA1N7R50 


C * *** ** * * ** * * ** ** * * * * * ** * * * * * ** * * * * * * * * * * * * * * * * ** * * * * 4c « * * * « ** * * * * * * * « * ** j N 7 Q 

C R F AO STRIICTHRF I.OAO MULTIPLIERS MAJN7R70 

C ********************* ****** ************************************* ******* M ^ I N7PB0 
R F AO (111) STR MAIN7R90 

C ********** ****************************** *********** ****************** **^a j N7 900 

C FflRM FOII AT I ONS IN BLOCKS ( T^P BLOCKS AT A TIME ) MAIN7910 

C ******* * ***************************** ******* ***** *** ***** ****** ********ma I N7 920 



on 1000 H=1 .NRLOCK ,2 

MAIN 79 30 


no 100 ?=|,MF?R 

MAIN7940 


on ion J=l,MRAMO 

MAIN7950 

100 

A f T , J ) - 0 , 

MAIN7960 


RFAO( HIM (R(T,L),T=1,NF0R),L=J ,1. L ) 

MAIN7970 


IF (M.FO.NRLOCK) GO TP 200 

MAIN79R0 


RF A0( m )( IRII.L) , I=K,NF2R> ,L = 1 ,IL ) 

MAIN7990 

200 

CONTINUF 

MAINHOOO 


RFW I NO 19 

MAINR010 


RFWJMO I? 

MAINH070 


MA = I 9 

MAINR030 


NMMF=NIJM9 

MAJN8040 


IF ( MM.NF.l ) GO Tn 75 

MA INR050 


NA=1? 

MA I NROftO 


MMMF = NIIMFI. 

MA1NR070 


N||M9=0 

MAI NRORO 

75 

no 700 N = 1 ,M|IMF 

MA I NR090 


R F A D (NA) L R 0 , MO , ( I.M ( I ) , I = l , NO ) , (SS(I ),I = 1,LR0) 

MAI MR 100 


00 BOO 1=1 ,N0 

MAINR1 10 


LMW=1-LM( I) 

MA I NR 120 


U=LM( H-NSHTFT 

MAJNRI30 


IF ( H.LF.O.OR. I I.GT.NF2R) GO TO f>00 

MA I NR 1 40 


no BOO 1. =1,U. 

MA INR1 50 


no 300 j=i,a 

MA I NR 1 RO 


KK=MO*( Nn + .|-1 ) 

MA I NR 1 70 

?on 

B(U,U=ni I I.u + SSM+KK )«S1RU,I. ) 

mainbiro 


no 500 ,J = 1 ,N0 

MA 1 NR 190 


,M=LM(.i KI.MN 

MAINR200 


TFIJ.I) 500,500,390 

MA 1NP2 10 

?90 

KK = Nn«,i-NO 

MAINR220 

Ano 

A( 1! ,.IJ)=A( I ! ,.|.I) + SS( I +KK ) 

MAI NR? 30 

500 

r.nwiiNiiF 

MA I NR? 40 

AOO 

CONTINUF 

MA I NR? 50 


(^ ************** ********* ************** ****75:**# ****** ***************** ***MA I NR?hO 
C OFTFRMIMF if STIFFNFSS IS in BF Pl.ACFn ON UNIT 19 MAJNR270 


srb 



nn n nnnnri 


r*$*«*$***fr**ji»****a**$$£fc* *#*$£**£*#*******#*$$****************$**$$#*#=(= M A 1NR7R0 
IP (MM.r,T,l) no Tn 7nn ma i nr? 90 

nn *90 i=i t ND ma 1 mb ? oo 

1I=LHC I) -NSHFFT MAINR3LO 

IFI II.Cl.NF7B.AMn. M.LF.NERR) GO TP 6*0 MAINR370 

*90 CflMTINIIF MA I MR330 

nn in 7 on mai nr 340 

6*0 WRITE! 19) LRn,Nn,(1_M( 1 |,1 = l,Nn),( ss( M.l = l*l.pn) HA I NR 50 

NnM9 = N|IHQ+I HA 1 NR 3*0 

7nn COMTINUF MA 1 NR -J 70 

WRITF (110) KAll.J), 1 = 1 ,MFOR ) • J = 1 , MR AND ) * ( (M I ,U , I = 1 , NFPP ) ,L = 1 * MA 1 NR 380 
l_U MAINR390 

l f ( m.fo.nrlpck ) on to 1000 mainp^oo 

WRITE! 110) ( *A If ,.)) ,I=K,NF?R) , .1= 1 * MR AND) ,( ( B( I ,U , 1=K,NE?B) * L = 1 *IJ. MA I MR* 1 0 


1 ) 

IF ( MM.FP.MR ) MM = O 
MM= MM+ J 


MA I MR A? 0 
MA1NR430 
MA I NR 640 


inoo MSHTFT=MSHIF T+MF?R 
RFTMRM 
FMO 


MA JNR950 
MA1NRA60 
MA T MR* 70 


SMRRniJTINF HSPL ( M AXR , A , R ,NFOR ,MR , l_L • NRLOCK .NSR. NflRG ,NRKS .NT1 . MA I NR4B0 

] N7?.IW) MA I NR 490 

*******:*********£***** *$$****>«<#***£**$ ^**$*#**$*******************MAINR 500 
-THIS SUBPROGRAM SPI.VFS SIMULTANEOUS FQUATJPNS FOR n I SPL ACFMFN TS MAINR510 

-TAPFS USFn ARF AS FOLLOW MAINR570 

-A AMR R (TWO BLOCKS OF STRUCTURAL STIFFNFSS AMO LOAD VECTORS) ARE MAINR930 
STORED ON TAPE NORG MAINR5*0 

-SCRATCH ON NRKS , NT 1 , N1? MAINR550 

-RESULTS ON TAPF NT? MAINn5*0 


***$**********£****** *******$*$$**fc******#** 4 ,( I 3 * + *$***#:>:Cr****«*********HAINH 570 



DIMENSION MAXR(NFOR) 

M A I N P 5 R 0 


RFAL*R A(NSR) *R(NSR) 

MAINR590 


MC=MR+LL 

MA JMR600 


NRR=(MR-I J/NFOR+ 1 

MAI NR61 0 


I MC = MF OR -1 

MAINR670 


NMP = MFOR* MR 

MAINR630 


M?-MT? 

MAIMR690 


M 1 =NT l 

MAIMR690 


RFUf MD NORG 

MA I NR* 60 


RFWINO MRKS 

MAINR670 

0******* **********£*,>*********** ***!{:* 

***********#*******************+***MAINR6Rn 

c 

-REDUCE FOIIA1TPNS BLOCK- RY-RI.OCK 

MAINR690 



no ono N=1,MRL0CK 

MAIMR710 


IF ( M.GT.t .AMn.NPR.FO.l ) GO IP 

110 MAINR7P0 


TF (MRR.FO. 1 ) GO TO 109 

MAI MP730 


RFWIMD N 1 

MA 1 NR74D 


RFWTMn N? 

MA I NR 790 

109 

MI sMl 

MA JNR760 


TF(M.FO.I) NI=NPKG 

MAINR770 


RFAD 1 M|) A 

MA INR7R0 

110 

no ?no T=i,mfor 

MMNR790 


D= A( 1 ) 

MA INRHOO 


I F ( D ) 119,^00,170 

MAINRR1 0 

119 

M=NFOR*( U-l ) + T 

MA INRR70 


WRITF (Il-Ml*) M*0 

MAI NPR^O 

1 ?n 

I 1 = I 

M A 1 Wflfl 40 
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nn ips 

MAIMRR50 

II=It+NFOA 

MAINRRAO 

i?s AUJ)=A(M)/n 

MA I NRR70 

nn no J = I ( NMR ,NFOR 

MAINRR80 

IF (AU).NF.O.) MAXRfn=J 

MAINPR90 

I 30 r.OMT I WMF 

MAINR900 

Jl.= 1 + 1 

MAINR910 

IF I ,11. .GT.NFOR J G" TH 300 

MAIN89P0 

1 1= I 

MAINH930 

nn pon J=JL t NFOR 

MAINR9A0 

1 1 = j 1 4 wFon 

MAJNR950 

l f< ii . gt ,nmr) go in poo 

MAINR960 

r.sAiin 

MA1NR970 

IF (C.EO.O.O) GO TO ?00 

MAINR9R0 

r.=r*A( i ) 

MAINR990 

II 

T 

MAIN9000 

MAX=MAX R ( | ) 

MA I N90 1 0 

nn iso . 1 . 1=1 I ,MAX ♦ nfor 

MAIN90P0 

ISO A ( ,l,i+KK ) = A ( J J + KK )-C*Af ,IJ ) 

MAIN9030 

KK=.i +MMR 

MAIN9040 

,1,1= I + NMR 

MAIN9050 

nn its l = i f l i. 

MA1N90M) 

A / KK)=AlKK)-r*M JJ ) 

MAIW9070 

KK=KK+NFOR 

MAIN90R0 

ITS ,i,l = ,»,l + MFOR 

MA1N9090 

pnn nnwriNUF 

MAIW9100 

?on cow t ini if 

MAIN9H0 

WRTTF (WRKS) A » M AXR 

MAIN91P0 

£**4*«4^**4ft«*:£ 4 * 4 *# ***««****##$#«#* ******** ******* ************ *********MA I N9 130 

C SlIRSTITIITF INTO RFMAIMfNG FOUATIHNS 

MAIN9I40 

C ****** ******** ********** ****** $$***7** *********** **** *$*****1!, *********** ha I N9 1 50 

nn Ron nn=i ,nrr 

MATN9160 

I F C M+NN.GT , NRI. Hf.K ) GO in ROO 

MAI M9 170 

M1=N1 

MAIN91R0 

IF(N.FO.l) MI=MPRG 

MAJN9190 

I Ff NM.FO.NRR > MI=WPRG 

MA | N9? 00 

RFAO (NT) R 

MAIN9P10 

ll. = l+MN*WFPR*NFOR 

MA J N9P 70 

nn TOO I=l,MFOR 

MA I N9? 30 

11 = 11 

MAJN9P40 

nn A90 K= 1 t NFOR 

MAIN9P50 

IF {It.GT.NMR) GO TP *90 

MAIN9P60 

r. = A ( 1 I I 

MAIN9P70 

IF tr. .Fn.n.o) go tn *90 

MA JN9PR0 

OC + MKI 

MAIN9P90 

MAX=MAXR( K ) 

MAIN9300 

KK = I — I ! 

MAIN9310 

on *40 ,1,1=1 | .MAX.NFQR 

MAIN93P0 

ft* 0 R(,I,I+KK » = Rf J,l + KK )-C#A( JJ ) 

MA ) N9330 

KK = I +NMR 

MAJN9340 

,I,I=K4MMR 

MAINV350 

nn *sn i. = i ,ij_ 

MAIM93G0 

RIKKI = R<KK)-r.*A(,M) 

MAIN9370 

kk=kk+nfpr 

MAIN93R0 

*S0 ,l,l = .M+NFOR 

MAIN9390 

*90 M -1 I - IMG 

MAIN9400 

TOO il=r + nfor 

MAIM9410 

TF(nrp.NF.) ) GO TP 7S0 

MA I M94P0 

nn 74 o i=i , nsr 

MAIN 1 * A 30 

74n &( u=r{ n 

M A I N9440 
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r; n m poo 


MAIM9450 

750 WRTTF ( N ? ) R 


MAIN9450 

poo rnMUMUF 


MA1N9470 

M = ftl 


MA 1N94P0 

M I 


MA1N9490 

90n n?s« 


MA JM95O0 


C RACKSHRSTI Tin inN - RF SHI. T S nM TAP F NT? 


M A J M95? 0 


1. 5 = L L *NF OR 


MA JN9540 

MFR=NFOR*(NRR+1 ) 


MAIN9550 

Ml IM = NRR£NF OR 


MA IM9550 

MAXtrMFP»l. L 


MAIN 9570 

nn 905 t=i .max 


MA 1M95R0 

90P R 1 I ) =0. 


MA1N9590 

R F W I MIT NT? 


MA 1 N9500 

nn loon m = i.mri.pck 


MAIN9510 

rackspacf nrks 


MA IN95?0 

R F A n (MRKS) A.MAXR 


MA I N9630 

RACKSPACF NPKS 


MA IN9540 

nn Pin i. = i,i.i. 


MAIN9550 

k=i_*mfr 


MA 1N9550 

nn 9i n j=i,nmm 


MAIN9570 

I=k-mfor 


MA 1N95R0 

R(K ) = R( I ) 


MAIN9590 

910 K=K-1 


MA IN9700 

I =MMR 


MAIM9710 

nn 9?n i.=i ,1.1. 


MA IN97?0 

K = f L- I J*WFR 


MAJN9730 

nn p?n .i = i ,nfor 


MA1N9740 

1 = 1 + 1 


MA] N9750 

K=K+1 


MA 1N9760 

9?n R( K ) = M 1) 


MAIM9770 

nn qpp 1=1 ,nf or 


MA 1M97R0 

JcMFOR+l-f 


MAIN9790 

MA X = MA” n .f J ) 


MA 1N9ROO 

TF < a( 4 ;. n.n, ) fin in 955 


MA] M9R1 0 

nn 9 s n i„ = i , u. 


MA IN9R?0 

KK = J+{|.-1 )*NFR 


MA I M9R30 

.1 J =K K + 1 


MA JM9R4 0 

n. = ,1 + MF OR 


MAIN9R50 

f. = R ( K K ) 


MAJN9R50 

nn 940 1 1 s|i. . max.mfor 


MAIM9R70 

r=c-M 1 1 )*p( j.n 


MA 1M9RH0 

040 J,I=JJ+1 


MAI N9R90 

950 R ( KK )=C 


MA IM9900 

955 rnMTINIIF 


MA 1 N9 9 1 0 

1=0 


MA 1M99?0 

nn 950 t. = l*u. 


MAIN9930 

K = ( L-l )*MFR 


MA IM9940 

nn 950 j=i,MFnR 


MAIN9950 

K =K + 1 


MA 1M9950 

1 = 1 + 1 


MAIN9970 

950 A ( 1 ) = R ( K ) 


MA IN9980 

WRITFIM1?) ( M 11,1=1,1. S) 


MA1M9990 

1000 CnMTINUF 


MA iNdono 

RFTHRM 


MA IN001 0 

115 FORMAT (A5HPSF1 OF FOIIATIHMS MAY RF 5|NWILAR / 


MA 1 MOO? 0 

. ?5H niAOPNAI. TFRM OF FOIIATIPN ,]R, PM FOUAI.S 

t 1PFJ2.4 ) 

MAIN0030 

FMfi 


MA 1N0040 


Q. 18 



SIIARntn INF MAXOI ion, OCnN,B.NFOR,LL*L n,NRLnCK, [?♦ 1 1?, IW*NMAXf)I MAfNOOSO 

C *****#*4*##«« ?«#**«**« *«*^*«* ❖««**»>**»*«** I NOO 60 

C CAI.CH1.ATF MAXIMUM 01 SPLACFMFN> CONSTRAINT RAUOS MAIN0070 

f^»>*<t**lii** ^ <r***#* *«*«***«❖ I NOORO 



niMFwsinw ion(LO),ncnN(LL*?*in) 


MAIM0090 


RFAI.^R R( NFOH,LL ) 


M A 1 NO 1 00 


COMMON/ JIINK /Ml .1(4) ,MF1 (4},RM1(4) , OC 1 ( 4 ) 

i JUN ( ?R4 1 

MA I NO 110 


on ii i=i , mm A yn 


MA I NO 1 ? 0 

11 

RMl ( n=o.o 


MAI NO 130 


RFAnin?) inn , ikon 


MAIN0140 


RFWIMO I? 


MAIN01 SO 


NNsNF0R*NR1.0CK 


MA I NQ 1 AO 


i.oi=cn 


MA I NO ) 70 


nn son kk=i ,nrlock 


MA JNOIRO 


PFAO( I ? ) R 


MA I NO 190 


MMsNM-NFOR 


MA I MO? 00 

1 

LT=innn_ni i 


MA I NO? 1 0 


IFILT.LF.NNJ on TO 500 


MA I NO? ? 0 


LTN^Ll-NN 


MAIN0?30 

tSitQt:******#*#****************#*#**********#*#***********#***#**********^^ I NO? 40 

c 

-CALCULATF ACTUAL 0 1 SPL ACFMFNT 10 CONS TR A I NFO 01 SPL ACFMfNT RA1I0 

MA I NO? SO 

c 

FOR ALL LOAD CONDITIONS 


MAI NO? AO 

C* ******»> ****** ***£*$******,fr***< ! ******#***fc#*#**a****#***#*#*****#***if^*MA I N0?70 


on to ,J= 1 » LL 


MA JNO?RO 


RATIP=0.0 


MAINO?90 


RR = R( 1. TN t J ) 


MAIN0300 


TFIRRI ?0, 10,?0 


MA I NO 3 1 0 

30 

ODrOCONI .1, 1 ,L01 ) 


MA 1 N03? 0 


IFinn.FO.O) on to 10 


MA1N0330 


GO TO SO 


MAJN0340 

?n 

nn=~nroN( j,?,loi ) 


MAIN0350 


IF(nn.Fo.n) go to to 


MA1N03A0 

so 

RATm=RR/nn 


MA1N0370 


AR AT I n = ARS( RATIO > 


MAIN03RO 




C F I ton THF MIN. RATin PF FOUR MAX. niSP. RATIOS FOUND SO FAR MAIN0400 



R = 1 .OF 20 

MA I N04? 0 


J1=0 

MA1N0430 


on 70 j,»=i,nmaxo 

MA1N0440 


RT = ARSIRM1( J.n ) 

MAIN0450 


I Ft RT.GF.R1 GO to 70 

MA 1 N0460 


R =R 1 

MAIN0470 


J1=JJ 

MAIN04R0 

70 

CONTI NIIF 

MAIN0490 

C ***** ********************* ********** ************* ****** ****** ******* *** m a IN0500 

C 

-RFPLACF THIS MJN, RATIO WITH NFW RATIO IF IT IS GRFATFR 

MA I NOS 10 

c ****** ************************************************* ****************ma jnos?o 


IF( ARATIO.LF.R } GO TP 10 

MAIN0530 


RMU J 1 ) =R AT in 

MA 1N0S40 


MF 1 (J1 ) =1. T 

MA I NOS 50 


Ml. 1 { J1 )=.I 

MA I N05A0 


nci ( ji )= nn 

MAINOS70 

10 

CONTINUF 

MAJ NOS RO 


L oi = i. n i — i 

MAIN0S90 


TF(LDl.FO.n) GO TP 100 

MA1N0A00 


GO TO 1 

MA I NOM 0 

sno 

CONTINUF 

MA !N0A?0 

100 

RF TURN 

MAIN0630 


FMn 

MA {N0A40 


Q. 19 



SlIRRHin IMF PR INTP( I n, 0, R , NFOB , N 1 JMNP , |.|. , NHLPC.K ,NF0, I 2 , 1 H . I W , KP ) MAIM0650 


c ft**************** **** ***=*************#>}:£:*$#$ £$#****s*fc*,!c$s*:*,!c$**#$*****M A I N0f»f>0 


C PRINT NPOAI. niSPLACFMFNIS MMN0A7O 

f. ****:<«*$*<«$**fc**********:*fc**** $$***#****###£$* ^#*$***«£*3##$**#***#****MAIf\IOf«RO 


niMFNSiriN Tn(NIIMNP f 6) f n(6,LU 

RFAL*fl R(NFOB f LL) 

RFWJMn IR 
R F AD ( IR ) TO 
IF(KP.FP.O) RETURN 
R FW I MR I 7 
M = NFO 

NM=MFOR*NR|. DCK 
N = NI IMMp 
wrttfi iw*?nn3) 
nn 5on kk = i .mmmmp 
1=4 

no 750 n = l 
nn ion i.=i ,u 
inn nn ,D = n. 

IF(M.OT.NN) On TP 150 
IF (M.FO.O) nn tp iso 
RFAO( I 7 ) R 

nm=mn-nfor 

150 I FC mCN* I ) .I.T.l ) OP TP 750 
K=M-NM 
M = M-l 

OP 700 L = I * LL 
700 P( 1 ,L >=R( K ,1. ) 

750 1=1-1 

WR1TF( 1W.7004) N,(I.,(n(I,U,l=KM,L = MLI 
500 N=N— 1 
RFTtIRN 

700* FPRMA1 (RAH NOPAL PISPLACFMFNTS AND RfHAlIPMS// 

. 5H NPDF ,5H LPAP ,HX f 1 HX ,11X , 1HY *HX ,1HZ , IPX ,?HXX, 
. IPX « 7HY Y ,inx ,?H77/) 

7004 FPRMA T ( IN , !A, 15.1PRF17.R ,3F1 ?.*/( I 10 , 3E 1 7 . 3 * 3E 1 2 .4 > ) 

FMP 


MAIN0490 
MAIN0700 
MAIM0710 
MA1N0770 
MAIN0730 
MAINO7A0 
MAIN0750 
MAJN0760 
MA I NO 770 
MAIN0780 
MAIN0790 
MA1N0R00 
MAIN0R10 
MA IM0P70 
MA1NOR30 
MA IN0R40 
MAI N0R50 
MA I NORfcO 
MA I NOR 70 
MA I NOR RO 
MAINOR90 
MA IN0900 
MAIN0910 
MA IN0970 
MAIN0930 
MAIN0940 
MAIN0950 
MA 1N0940 
MAIN0970 
MAIN09PO 
MAIN0990 
MAI N 1000 
MAIN] 010 


5IIRRPIITIMF OPRIMT (A 9 NV«[W) MAIN1070 

C*#*****« £********$*******#£***$$**«*£**###$$$***$*****$#$$**#$#*#$ *jOt**jtcM/i[N103() 

C PRINT nFSIPN VARIARLF ARRAY MA INI 040 


niMFM5inM A( MV ) 

WRTTFf TW,1P0M 
MRPW={ NV-1 1/10+1 
OP 770 N= J ,NRPW 
M = ( M-1 ) * 1 0 
T STAR! =M+ 1 
1 STPP=M+ 1 0 

TF( ISTPP.OT.MV) 1 S T P P = N V 
770 WR I TF( IW.l 007) M,( All ) F I=I START, ISTPP) 
RFTMRM 

1004 FORMAT! //7RH VAI.IJFS PF IlFSION VAR ! ARI FS 
1175H 1 7 

? * 7 R 

1007 FPRMA1I1N « 1 5 t 1 OF | « 4 ) 

FNO . 


10 


MAINlOftO 

MAIM] 070 
MA IN10R0 
MAIM 1090 
MA INI 100 
MA INI MO 
MA |N1 170 
MAIN1 130 

MAIN] 140 
MAIN] ] 50 
M A I N 1 1 60 

5 MATN1170 
/ ) MA I N l 1 80 

MAIN 1 190 
MA JN1700 


Q. 20 


StmRnin INF STRFSSI AnLn, ASTP,LPAn,STK .R.n.LL*LR,NFO.NIIMnv,NFOB MAIN1?I0 


l f A t MTnT.I 1 • I?« 1 R. 1 U «IM) MA 1 N 1720 

C *****£«4***<i«4**44«****«#*4«ft##*«t4*4«*«**«******4*#*4*************4***MAIN)230 

C CALCHI.ATF STRFSSES MAJN1240 

f ;*«* 444 ** * 44*444444 ***** 4 * 444 **** ******** * 4 * 4 * 44 *** **************** $****MA I N1250 


0 1 MFMS 1 ON STP( 4,LL) *0( NRO » I.H ) ♦I.HADI NOMITV) , AOLO ( NIIMDV ) ♦ AS7R ( NOMDV ) 
1 T A ( M 1 r»T ) 

RFAI_*fl R(NFOR f LU 

COMMON /FLPAK/ N PAR ( 14 J , NUMNP , MR AND , NEl. T Y P , M I , N? f N3 , N A , N5 , Ml VI * 

1 F|_P( 9) .WRtnr.K 

CnMMriN/ JilNK /.MINI 1 6 ) , I. T* LH , JUN 1 ( ? R ? ) 


MA I N I? f>0 
MA I N 1 2 70 
KA |N1? RO 
MAIN1290 
MAIN1300 
MAI N1 310 


RFWIMO T] 
RFWIND in 
RFAD (HI APLO 
RFAP(Ill) ASTR 


MA IN1320 
MAIN1 330 
MA IN1340 
MAIN] 350 


f;****4 *4 ****** ********* * 44 * ******* *4*4* 44* 4* ** *******************4 ****4*MA I N 1 360. 


C PRINT DESIGN VARIABLE ARRAY FOR CDRRFN1 DESIGN 


MA I N 1 37 0 


C *4**44* ******** ****** *4***444*****4*4*44444*444 4 * 4444 **** 4 * 4 * 44 44444444 MA IN 13 R 0 


CALL DPR I NT Uni.n.NIIMnV, IW) MA I N 1 390 

on 111 1=1, NIIMDV MA1N1AD0 

111 LPaoi t )= n MAiNjAin 

R F AD (111) STR MAJN1A20 

NTsMJ.-l )/LR +1 M6INIA30 

I.H=0 MAIN 1 AAO 

on 1000 M = 1 » NT MAIN1A50 


C * 4444 * 4444 *#* * 4 * 44 * 4444 ** 4 ******* **************** 4 * 444 * 4 ***** 4 *** 4444 **MA IN 1460 


C MRVF D I SPL Af.FMFMTS INTO CORF FOR LB LOAD CONDITIONS MATN1A70 

C4***#4************4*************4*4*****4**********#*******************MA IN) ABO 
CALL MPVFni R,n,MFOR t NRLOCK,MFO,LL,LB f LH,LT* 12 ) MAIM1A90 

C4##**4444#4****** ******* 44 *4*4*44444**4*** ***** 4**4 *4* #4************** *M A INI 500 

r. CALCULATE FLFMfNT STRFSSFS AND PFRFORM FOLLY STRESSED RESIGN MAIN1510 

C FOR l.R LPAD CONDITIONS MAJN1S20 

C4******44***44****44*44#**#**4****4#444*#*4*4***44#*4*****#**4*4*444*44MAI N1530 


PD 1000 M= 1 f NFL T YP MA I N 1 5 AO 

RF A D ( I Ft > NPAR MA I N 1 5 50 

MTYPF=NPAR( 1 ) MAJN1560 

MP A R ( 1 ) =0 MA I N 1 570 

CALL FLTYPF ( A ,MTPT ,M TYPF , 1 W ) MAIN15R0 

ioon cpntinuf maini590 

RFTIIRM MA I N 1600 

FNn MAIN] MO 


SI IB ROOT INF MnvFn(B f n,MFOR»NRLPCK,NFO,LL »LR.LH,LT, I ? ) MA INI 620 

£*4*4*44*444*444444*444 *444444 444*444444444****4444 A#* * 44 ** 44 ** 444 * 4 **#*MA IN 1630 

C MOV F DISPLACEMENTS INTO CPRF FDR I.B LOAD CONDITIONS FROM TAPE NT MAINIA40 

£ 4 * 4 * 44444 4 * 44 * 4 4 * 44 ** 4 * 4 444 * 44 * * 4 * 4 * 4 * 444 ** # 4 * 4 * 4 *#**#*** 44 #* 44 * 4 ******MA ] N 1 A 50 


D I MFA'S I PN 0 INFO, I.B I 
RFAl*A RIMFOB.LU ■ 
RFW1ND 12 
LT=LH+1 
».I.T=1 -I.T 
1.H=I_ T+t.B-1 
IFILH.GT.IJ, ) I.H=LL 
no=mfpb*nrlpck 
nn poo nn = 1 1 n R t.nr.K 
RFAD( I? ) R 


MAI N1 660 
MA INI 670 
MAI N16B0 
MA I Ml 690 
MAIN] 700 
MA1N1710 
MAI N1 720 
MAIN 1730 
MA] N1 740 
MA I Ml 750 


Q.2X 



NsNFOR MA 1 N 1 740 

IF (MM.FO.l) M = WFO-NO+NFOR MMN1770 

MO=MO-NFDR MAIN17HO 

nn ?oo ,1 = 1 ,N ma IN1790 

l=K'0-»-.| MAIN1ROO 

nn ?oo l=lt,i.h mainirio 

K=| +1.1 1 MA I N 1 fl? 0 

?00 Ilf T ,K ) =R( .1,1.) MAIM1R30 

RF TURN MAIMIH40 

FMn MAIM1R50 


SURRnilT ! MF 9TR9r. { Ani.n , 5 TR ,n ,NFO ,NUMOV * LL , 1-B • I fl • N T AG ) MAIN1R40 

£***#£****$#* *****:fc*lCr*:fr#***jC^*#$#*,C^*******#*#$****Jfr**:fr**#**#*<S>fr****##4$M A IN]R70 


C 9FT IIP 9TRF9S MATRIX AND CAI.CUI.ATF 5TRFSSFS 


MA I Ml RRO 




R F A1_ * R pi , p? ,9Ti ,9 t?,st,p 

nfMFNSION STR < 4 * LL )*r>(NEO*l. R) ,Ani.niNUMnV >,PII15,4),P2(15,4), 
i 9 th 1 5,?4 j ,st?( i5,?4 ) 

rpMMnN/JUNK/.«UN( If, ) , LTfLH, L,sr*!?7» , IDVAR, IFXfFRC, AREA,XINFR1 , 

1 nFSIMFI ?4Q ) 

CnMMnN/FM/NII,NW,NS,Mn*I.M{ ?4 ) , S 7 1 1 5 , ?4 , ? ) , P ( 15*4,2) , E M 1 (33*58) 
FOUIVALFMCF ( P1*P),CP?»P(M) I *( ST»STl),(STI361)»ST2) 

7 F 7N7AG.FO.O) HP TP AOO 
NL-L-l.TM 
nn 3 nn |=i,ms 

SM I ) = o .n 

nn ?no j=i ,4 

300 SGI i )=sr,( I ) + pi ( I ,.I)*STR( JtL ) 
nn son j= 1 ,wn 

.1.1 =I_M( J ) 

JF(JJ.FO.O) nn TP son 
nn 4nn 1 = 1 ,ms 

4nn sn( i > = SG( n + sii f i , j)*m jj,ni. ) 
son cnMTTMUF 
r.n to no 

ROO R F An( IR) NU f MW, M s ,Mn ♦ I I 1 VAR, I FX # FRf.,( I. M I I ) , I = 1 ,Nn ) , ( U ST ( I , J , K ) , 
1 1 = 1 ,N9 ) , J=1 ,M0) ,K = 1 ,NU ) , ( if P I I , J,K > , I = 1 ,NS ) , .1 = 1 ,4 ) ,K=l ,NW) 

I F( i n v A r .Fn.o ) on to no 
arf a = Ani.ni invAR )*f«c 
XJMFRT=ARFA**IFX 


MA TN19O0 
MA 1 N 1 91 0 
MA IN1920 
MA I N 1 930 
MA IN1940 
MA I N 1 950 
MAIN1960 
MA I W 1 970 
MA TM19R0 
MAIN] 990 
MA I N2000 ■ 
MAIN2010 
MA IN? 02 0 
MAIN2030 
MAIN? 040 
MA I N? 050 
MA IN? 040 
MAIN2O70 
MA I M? 0 R 0 
MAI W2090 
MA IN? 100 
MA IN? 1 1 0 
MA IN?1?0 
MAIN? ] 30 
MA IN? 140 


nn inn m,n<; 
nn i ni . 1 = 1 ,4 

10} P? ( I,. I ) = P] ( I , J )*ARFA 

nn inn .1 = 1 ,wn 
ino 91 1 M ,.i ) = 5; T 1 ( T ,,1 )*ARFA 


MAIM? 1 50 
MA IN? I 60 
MAIM? 1 70 
MA IN?1 RO 
MAIM? 190 


PFAn( IR) Ml ,( 0F9IMF( I) ,1=1 ,MI ) 
IF (Mn.Fn.n on in 900 
nn 104 j =1 f m 9 
nn ] 04 ,1=1 , no 


MA 1N??00 
MAIN?? l(j 
MA I N? ? ? 0 
MAI M?? 30 


104 9T1( T,.I)-9T1( I * .1 ) + 9T?( I ,.n*X|MFPT 
onn iF( mw.fo. 1 ) i;p in no 
nn inR i=i,M9 
nn 10* .1=1,4 

109 PH I*. I ) = P1( 1 ,.I) + P?I I,.)) 

nn rfthrm 

Fwn 


MA IN?? 40 
MA1N??50 
MAIN?? 40 
MAI N??70 
MA IN?? HO 
MAI M??90 
MA IN? 300 


ZZ'b 



mirrohiimf dfsigm( Ani.n,ASiP,inAn t uwT,NiiMnv, ri,!R,m,iw,tp) ha in? bio 

C** *******:* $****#*#*#$*# $***#*«#$:* $***$***$***>}:## # $#**$*####:** *#**:fc***##MA J N? 3?0 

C FVAUIA1F THF CURRFNT OFSIGN ANO PFR FORM RFOF S l GN PPFRATION MA1N?330 

£*+**#**$£.*£#*&*## ##**********#*#$*$***#**&*##*##**#******# *#*#******t**tfk \ N? 340 
niMFNS I PN Ani.P(Nt)MOV } , A $ T R ( Nl )MOV ) » IPAO ( MIIMOV ) , UWT I NUMOV ) MAIN? 350 

r.PMMnN/CPNTR/ICYCI. *WCYCL ,1 SCALF,NSCALF,KSCALF»KPNVG, IOFSN, IWTMIN, MAIN7340 
lW1MJM f FPSR,nFLTAI , PFU A ? , K PUNCH , KO l SP , MM AXP , Ml) I SP , l R I , AL P A t SF , I S . MAI N? 370 


S M A X , OM A X * C PN S T 

MA I M? i PO 

COMMON/JIINK/MU ( 4) ,MFH4 ) , DRAT (A ) ,0C0N(4) , JHN( ?R4 I 

MA 1 N? B90 

RFADt TP) UWT 

MA IN? 4 00 

KnMVG=J 

MAIN?410 

SMAX=0. 

MA I N?4? 0 

SM I Ms 1 . OF ?0 

MA I N?430 

nMAX=0. 

MAIN? 440 

n n i s p = 0 

MAI N?450 

IS=0 

MAIN7440 

WT = 0. 

MAIN? 470 

RCOMSTtr? .0 

MAJ N?4B0 

nn ??i 1 = 1 , niimov 

MA I N? 490 

wT=wT+Arn.o( 1 )*iiwt< 1 ) 

MA I N? 500 


C ******$*#*** £*********«*«** ***&****************************** ***MA IN? 5 1 0 

C CPMPUTF WAX. ANO MIN. STRFSS RATIOS ANO PRINT THEM MAIN?5?0 

C ^ ##$#*****#6 *####«#*#)}[*#>!»#«*** ♦ #** * $ *a j!** * tf*#*** $**#*#*£>(-, ****** ****** * **ma I N? 5 30 


nn 4ft T-l , NUMOV 

MAIN? 540 

r=astr i n/APim 1 1 

MAI N? 550 

IF( R.I.F.SMAX) GO TO 49 

MAIN? 540 

smax*r 

MAI N? 570 

I MAX= 1 

MAIN?5R0 

LMAX-LOAPI I > 

MA I N? 590 

IF( R.GF.SMJN) GO TP Aft 

MA I N?400 

SMIN=R 

MA I N? 41 0 

I M I N= I 

MA I N? 6?0 

1 .M ! N=|.OAn ( I ) 

MAIN? 630 

CONT INUF 

MAIN? 440 

WR I IF I IW, lOOnnneSN. SMAX, LMAX, IMAX, SMI N,LMJN, 1M1N 

MA I N7650 

?F( KniSP.Fo.O)r,n rn «n 

MAIN? 4 40 


(-*********************** **** ****************************************** **MA IN? 670 

C PRINT OISPLACFMFNT CONSTRAINT RATIOS MAJN? 4 R 0 

C***********************************************************************MAlN ?690 
WR 1 TFI IW t ? 00 ?) MA I N? 700 

nn 79 1 -umfixD' main? 7 in 

IFIOPATI n .NF.O) WRITFI iy f ?O 0 l ) 0 RAT( 1 ) ,MLIM) .MF 1 (I) MA|N? 7?0 

79 CPNTJNIIF MAIN ?730 

C***********************************************************************MA 1 N ?740 

C CAI.CHLATF NO, PF POSSIBLE ACTIVF OISPLACFMFNT CONSTRAINTS MAIN ??50 

C ?FRCI PUT OISPI.CFMFNT RATIOS WHICH ARF NOT LIKFLY TP BF ACTIVF MAJN ?760 

C FjMfl »fiy 9 PIS PLACEMENT RATIO MAJN??70 


0 ********* a#****#* **************** * ************************************* MA I N? 7 PO 



nn 70 j=i,nmaxp 

MAIN? 790 


Aftn=ARS( nRATt i j ) 

MAJN ?900 


I F I KSCAI.F ,G7. 0 ) AftP = (ARP )** C ) .0/K SCAI.F ) 

MA I N? ftl 0 


R=Aftn/SMAX 

MA I N? ft?0 


TF(R. IT. CONST) GO TO 71 

MAfW?fi30 


NniSP-ND ISP+1 

MA IN?R40 


ifi A ftn.GT.nMAx) nMAx=ARn 

MAJN?R50 


GO TO 70 

MA JN7P60 

71 

nRAilUrn, 

MAlN?ft70 

70 

CONTI NUF 

MAJN7PR0 

80 

SF-SMAX 

MAfN?«90 


IF(SF.LT.nMAX) SF=OMAX 

MA IN7900 


Q. 23 



1F< SF.LT.nFLTAl.PR.SF.Gl.nFLTA?) Gil 10 305 
TF( SMTN.1.T .0FLTA1 .PR.SMIN.GT .OFl.TA?) GO TO R3 
WRT1F( IW.IOPM 
KpMVG=4 

writfmw, innfl) wi 

GO TO R5 

R3 WRHF( JW, 1003 ) 

WR1TFI IW,100R) WT 
R4 WRIlFMW,?n05) 

K0M\/G=3 

TF( 0MAX.G1.SMAX ) K0MVG=? 

lSCALF=n 

JCYCl.sICYCL+l 

IF( ICYCL .I.F .Nr.Yf.L > 00 TO R5 
K0MVr.e4 

wr ttf( tw ,inns j ncycl 
go in R 5 

305 I F( KSGAI.F.GF .0 . AMI1 . SF . I. T ,R CON S T ) GO in 101 
WPI1F< IV, 100? > 

GO TO R4 
101 T S= 1 

tf(kscalf.lf.o) sf=smax 

on 103 J = 1 . MM MOV 
103 AOLO( T ) = AOI.n( I )*SF 

1 F ( K Sf.Al.F .t.F . P ) GO TO RO 3 

WR | TF ( T W » ? 004 ) 

f.AU. MFSG(SMAX f OMAX,SF,TW) 

WRITF( 1W,?004) 

CALL npRINI 1 AniD.MMMnVf 1W) 

WT=WT*SF 

WRMFUWtlOOPl Ml 
GO TO R4 

RO" 3 WPMFf JW, 100?) 

WR I T F { 1W ,?0O^ ) 

1 SC AL F= I SC AI.F + 1 

1 F { ISCAI. F.FO.MSCAI. F) GO TP ?03 
IF(MOJ SP.NF.O) PFTMRM 
RFWTMO Tl 
WRFTFU1) AOl.n 

r.AIJ. MFSG( SMAX,SMAX,SMAX,1W) 

RF7MRM 
?0 3 KHMVG = 4 

WR I1F( ]W. )001 ) MSCALF 
P 5 1 F( K OMVG .F O .4 ) GO Tn 501 

TFtKSCALF. 1.1.0 . (HR . SF * GF . ? . 0 ) i;n 70 503 
1F1WT.U .WTMfM) GO 70 50? 

P.= ( W7-W1M1N J/W1MIN 

TFC R •UT.FPS 1L ) GO TO 503 

« OMVG =4 

WR ITFt T W » 1 000 ) 1 W 1 M J M 

GO IP 501 
50? WTMIM^WT 

IWIMTMs jriFSM 

503 !F( MOTSP .FO.O) RFW]MO U 

WRTIF(M) ASTR 
RFTMRM 

501 IF ( KPUNf.M.NF. 1) RF1IIRN 
RFWIMn in 
RFADimi A S 1 R 
00 ?50 1 = 1 « Ml IMOV 


MAIW7910 
MA I M?9? O 
MAIN7930 
MA JM7940 
MA 1 N? 950 
MA ] N? 940 
MAIN7970 
MA1N79R0 
MAIM7990 
MATM3000 
MA f N 30 1 0 
MA I N30? 0 
MA1M3030 
MAIN3040 
MA I N'3050 
MA I N30f»0 
MAIN3070 
MA 1 N3080 
MAIN3090 
MAIN3100 
MAIM31 10 
MA 1 M3 17 0 
MA I N 3 1 30 
MA 1 N3 140 
MAI M3 150 
MAIN3160 
MAIN3170 
MAJN31R0 
MA I M3 190 
MA TN37 00 
MA I N3? 1 0 
MA I N3?~? 0 
MA I M3? 30 
MATN3740 
MA I M3? 50 
MA I N3? f>0 
MA I N3? 70 
MAI M3? RO 
MAIN3790 
MAIN3300 
MAIN3310 
MA1M3370 
MAIN3330 
MAIN3340 
MAIM3350 
MA 1 N33A0 
MA I M3370 
MAIM3JR0 
MAI M3 390 
MA IM3400 
MAIM3410 
MA IM3470 
MAIN3430 
MA IN3440 
MAIM3450 
MA IM3440 
MAIM3470 
MA IN 34 HO 
MA I N3440 
MA JN3500 
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? 5 n pRTiFf JP'inini i , Anim i ) , astr ( i ) MAIN3510 

RFTUPM MAJN3570 

1000 FORMAT (// ??H *********$*********************/ MA I N3 530 

1 7 PH FVAI.UA T TOM OF OFSIGN NMMRPR,I4 / MAIN3540 

p 3 pH ***$*#******************4******/// MAJN3550 

350H STRFSS RATIO LOAD CDNO OF S VAR I ARUF / • MAIN3560 

4 AH MAX »F]R.A,T10« 11?* / HAIN3570 

5 AH M!N,Flfl.A, IlO.in / ) MAIN3580 

1001 FORMAT !49H TFRMINAL OFSIGN MUMRFR OF SCALING OPERATIONS* ,14//) MAIN3S90 

1007 FORMAT! //?3H DESIGN IS NOT CRITICAL// I MAtN3600 

1003 FORMAT ( / / 73H OFSIGN IS CRITICAL // 1 MAIN3M0 

1004 FORMAT! //73H OFSIGN IS ACCFPTARI.F //) MA IN3670 

1005 FORMAT ! //4RH TFRMINAL OFSIGN MUMRFR OF CRITICAL DESIGNS - , I 5// ) MAI N3630 

tOOR FORMAT! / / 1 9H STRUCTURAL WF I GHT= , F 11 . 4 ) MAJN3640 

1009 FORMA T ( 60H TERMINAL DESIGN LIGHTFST CRITICAL DESIGN IS DESIGN MAJN3650 

1NUMRFR* I A// » MAJN3660 

1010 FORMAT! I5,?F10.5) MAIN3670 

7001 FORMAT! 7X,F13. 4 ,7T10) MAJN3680 

700? F0RMAT(4flH max OISP RATIOS LOAO CONO FON NUMBER/ 1 MAIN3G90 

7004 FORMAT! //IX, 33HHNIF0RM SCALING PPFRA T I ON FOLLOWS! MAIN3700 

7005 FORMAT! //IX, 7AHRF0FS1GN OPFR AT ] ON FOLLOWS) MAIN3710 

?006 FORMAT! //IX, ARHOFSIGN VARlARLFS OF SCALFD (CRITICAL) OESIGN ARE) MAIN3770 

FNO MAIN3730 


SURROJITINF MFSG(SF,OF,SFF,IW) MAIN3740 

<>*******4********#***#****4444##4**44«$*44«4**$4*#***#************4****MA JN3750 

C PRINT SCAl.F FACTOR FOR DESIGN SCALING MAIN 3760 

C *******4***4*** A ****************** ************ ************* ****** ** ****MA )N37 70 


IFrSF.GF.OF) GO TO 550 
WRITE! IW, 1003) SFF 
WRITF! UM004) 
on TO 551 

550 WRITF! IW, 100?) SF 
WRITF! I W »1 005 ) 

551 RFTURN 

100? FORMAT! //IX, 15HSCAI.F FACTOR I S , F7 . 3 , 1 7H ANO OF TFRM I NED RY)* 
1004 FORMAT! ]H+,40X,?4H0ISPLACE«FNT CONSTRAINTS) 

T005 FORMAT! 1 H+ ,40X, l RHSTRFSS CONSTRAINTS) 

FNO 


MAJN37BO 

MAIN3790 

MAIN3R00 

MAIN3R10 

MA|N3R?0 

MAIN3R30 

MAIN3R40 

MAIN3R50 

MAIN3R60 

MAIN3B70 

MAIN3RB0 



si irr ni i t I mf nnFRv ( A,An,MTPT,MTnT?,MROiiNn> ma i n3R9o 

f*************** ******************************************************** MAIN 39 00 

C C A I. Cl IL A r F niSPLACFMFMT nF R I V A T | VF S MAIM3910 

f************ ******** *************************************************** MAJN3920 
CflMMON/ F l. P A R /NPAR( 14 ) , NI IMN P , M R AMR , NF L T Y M , N 1 , N2 , N 3 , N4 , MS , M T T T * N £0 MAIN3930 
1,MMHFI v NMMpV,H1 ,M? ,H?, LI- , L R , NFOR , NRLOC.K MAJN3940 

CnMMnM/.IUMK /.MINK 1I1M , JUNK ?f ] 6 ) , .11 INK3 { 26 R > MA IN3950 

CriMMOM/HWITS/ IK* IU* IP, I 1 t !?. 1?, !R, 19, J 10, I 11, 11? MAIN3960 

COMMON /CflNTR/ If.YCI. ,NCYCL * I SC A L F , NSC Al. F .K SC A LF * KONVG , IOFSN, I W TM I N , M A I N39 70 
1 WlMIN,FPSTL.nFL 1 Al , OF LT A ? , K PI INCH , K 0 I SP , NMAXD , NO I SP t I.B 1 , AL P A , SF , I S , MA I N39R0 
1 SMAX,OMAX,OMFCA MA1N3990 

niMFMsinw a (Minn main4ooo 

RFAI_*R An( M TOT? I MAIM4010 

nn 10 1=1 ,16 MAIN40PO 

in .l|IMK?( I 1 =0 MAIN4030 

C ****** ***** ****** ******** ****** ******************* ** ****** ***** ********MA JN4040 

C RFARRANOF ACTUAL I) 1 SP I. AC F M F N T S ANO 01 SP. CONSTRAINT RATIOS MAJN4050 

C AH) ,1=1.. NI JMPV IS AOLO CARRTFO FROM STRFSS.ANO OFSTON SURR 01 IT I NF MA I N4060 

f, ************* *******#*****************#*******************#************MA IN40 70 
I R1 = ( Ml OT — WFOR*L I.* 2- NO MOV ) / NFO MATN40R0 

IF( I.R1 .CT.LL )LR1=I L MA1N4090 

Ml = 1 MAIN4100 

N?=M 1 +NIIMOV MA IM41 10 

M?»N7 + MF0#|.R1 MAIM4170 

MO 3= M3 / 2 + 1 MAJM4130 

CAM. ARRANI A( N? J ,A0(N03 ) , I. R 1 , LL . NFDR , NRI.OCK , NFO , NM AXn , 12,13) MAIN4140 

f****************************************************************#******MAIN4l50 

C CAI.CUP.A TF THF PRP0MC7 IMACTIML) TRAN.SPPSF* STIFFNFSS MA7RIX DPR • MAJN4160 

r.*****************************************************#********#********MA]N4l70 
I.R1 =( Mim-MFnp*MOI SP*? ) /IMIIMOV+NFO) MAIN41R0 

IFILRl.r.F.l) on TO 2 S MAIN4190 

MM=MFOR*N01 SP*? + NFO + MIIMOV-MTm MAJN4200 

CALL FRRPR(MM) MA1N4210 

2S 1 F ( I.R1 .CT.NOl S P ) I. R 1 =N0 I SP MAIM4220 

CALL FORCF S( A( N 1 ) • A ( N2 ) • L R 1 , MF 0 . N 0 I S P . Ml IM F L * NIIMOV , I 1,13.112) MA I N42 30 

C* ********************************************************************** MAIN4240 

C 1MPIIT nilMMY I.OAnS MAJN4250 

£*********************************************************************** MAIN 42 6 0 
N07 = M1 +NFOR*MRAMO MA I N4? 70 

CALL ni/MAM( A1XW1 ) , AfHMO?) , AOf MD2 ), NFOR , Mf.1 AMO , MR LOCK , U. , WO I SP , 12, MAlN4?«0 
Min) MAIN4290 

f********** **************************************************** *********MAI N4300 

c C AI.CIJL A TF DUMMY n f SPL ACFMFMTS MATN4310 

f ************** *************************4**************#****#***********MA I N4 32 0 
NSR = { MRANO+riniSP) *MFOR MA 1N4330 

N?=M1+NF0R MAIM4340 

MO?=M?/?+l MAJM4350 

M03=M02+MSR MAIM4360 

CALL lisni.l Al Ml ) , Af)( NO?) ,A 0 ( MP3 ) , NFOR . MR AMO . NO | SP , MRI.OCK , NSR MA IN4370 

. , 1 ?, T?, I Q, Tin, TW) MA1N43R0 

C ***************************************** ************************ ******[.»& 1 N4390 

C CAICdtATF OFRrVATlVFS MA/W440fl 

C******* ******************* ********** ***********************************^aj N 44 l () 
M? = N]+NIIMnv*|.ni MAIN4420 

N3 = M? +NF 0*1. R 1 MAJN4430 

MD3=M3/2+] MAIN4440 

C***********************************************************************MAIM4450 

C RFAO AOLO AMI) /HR A S T R 10 ADVANCF FRF 1 MAIN44M) 

f************* ********************************************************** MATN4470 
PFUiJMO I) MAIM44R0 
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RF Ant T 1 ) ( AM) ,1 = 1 ,NIIM 0 V) MAJNAA 90 

T F ( KflNVG.toF • 1 ) RFAPfll) 1 A U) , 1 = 1 ,NIIMDV ) MAINA 500 

Ml IMF=NUMFL -N ROUND * MATN 4510 

C At. L DF R V | A ( N 1 ) ,A{N?),AD(N 03 ) ,NMSP,I.R 1 , NUMOV , NEO , NE QH , NRLOCK , MAINA 520 

i mi imp ,n, n, no, nn mainas3o 

RFTIIRM MAINA 5 AO 

FMD MAI NAS 50 


SUHRDHT 1 NF ARRANl n,R,LRl ,LL ,NFOR, NRLPCK ,NFO,NMAXO , 1 2 * 1 3 I MA INA5M) 

C ************************************************** **************** *****MA I N4570 

C RFARRANGF AC TIJ A L 0 1 SP L ACFMRN TS WHICH AH F ON TAPE 12 MA]M45R0 

C ****************************************** *****************************MA I N4590 

0 I MFKtS 1 FIN n(NFp,LRl) MATNA^nC) 

r?FAI.*P R(NFOR,I.M MA1NA610 

COMMON / JUNK / ML { A ) ,MF ( 4 ) ,RM t 4 ) , PC 14) ,MI.C( A) ,MFO| A) ♦ OR ATI A) , DCHN ( A ) , MA I N4f>? 0 

1 JIIN(?AR) MAINA630 

MT = ( U-ll/LRl+1 MAINAAAO 

1 H=0 MAINAA50 

I. = 0 MAINAA^O 

P F W I MO M MAIN4M0 

nn 10 1 = 1, NT MA 1 NAS HO 

CALL MnVFni R,n,NFOB, NRLPCK * WFO, I.L ,LR1 #LH, LI , 1 ?) MAINAA^O 


C***** ******************************************************** **********ma I NA 700 

C WRTTF THF ni SPI.ACFMFNTS FOR MAX. RATIOS ON TAPF 13 MA1NA710 

C RFARRANGF MAX. 0 1 SP|. ACEMFN 1 RATIOS IN ICRFASING nRDER OF LOAn MAINA770 

C CONDITION NHMRFRS MAIMA730 

C ********************* ************ ********** ****************************ma INA 7A0 


no 10 J=L7,LH 

MAINA750 

nn in k=i ,mmaxo 

MA1NA7S0 

I F C RM(K).FO.O) GO TP 1 0 

MA1M4770 

KK=Ml.t K ) 

MA IMA7R0 

IF(KK.NF.J) GO TO in 

MAIMA790 

WPITFM3) ( 0( M,KK ),M=1,MF0) 

MAINAROO 

L = L + 1 

MA I MAR 1 0 

Ml. Cl L )=Mt.(K ) 

MA 1NAR20 

M F n t L ) = MF { K ) 

MAIMAR30 

nR ATt I. ) =RM( K ) 

MAINARAO 

nr.nwn. )=nciK ) 

MAINAR50 

COWTTAMIF 

MAINARAO 

RFTIIRN 

MAINAR70 

F Mf) 

MA IMAHRO. 
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SURROIH INF FOR f, F S ( APLn , 0 • LR 1 » NFO , NO I SP • Nl IMFL * N1IMDV , I l , 13, 11? ) MAIN4R90 

£44444 **4*4* *4***444444*44*444***4444*4*444#444444***4444444444*44*44444 MAI N4900 

C f.ALCIILMF THF iNTFRMFniATF PRODUCT IM I ) TRANSPPSF* MAIN4910 

C (STIFFNFSS MATRIX nFRIVATlVFJ IN f.Al.CUL A T I NG OFFLFC T I ON CPNSTRAlNTMA I N4970 

C PFRTVAT IVFS MAIM4930 

£4**44 *4 *4 4444 4* 4* 44 4*4 4 444*4444444*4*444* 4 44444444444444444444444444444MA] N4940 
RFAI.4R S,P,SI,S? MAIN495D 

11 1 MFNS I PM APl.ni NUMPV) ,0( NFO,l_Rl ) , Sl( ?4,?4) ,S2( ?* ,?4) MA I M49 60 

CPMMPN/FW/LMI ?4» ,S(?4,?4 t ?) ,P l?4,4,7 ) t FM]< ?354 ) MMN4970 

CnMMnN/.|HNK/.HIN( 3? ) ,C( 4,?4) , JUNK 17?) MAIN49R0 

FPIHVAl.FMCF ( S ] , S 1 , ( S? , S ( 577 > ) MAIN4990 

RFWTMP n MA I N5000 

1. 1 = I. R 1 MAIN5010 

MJ=( wniSP-1 1/LR1+1 MA I M50? 0 

np ion n=]*WT MAIN5030 

£4*4 *4 4*4* 44444*4**4*4**4 4* 44*44* 4 444**444**44444 4 44**44444*444 4* 4444*44 MAJN 50 40 

c r f a n actual otsplacfmfni fpp i.r lpao cpnoitipms mainsoso 


c 4*4 ** 444444444444**444444*444444444444 

I.T=IT*LR1 

I F ( l_T.OT.Nn I SP)I.l =Mni SP-1.T + LR1 
pp ?nn i.» 1 f 1. 1 

700 RFAP(n) (nM*n.I»1*NR01 
RFWIMO 117 

nn inn nn = i .niimfi. 

£444444*444*4*4*44444444**4*4*444444444 
C RFAO FI.FMFNT INFORMATION 

f44*444444444444 44 *4*4444*4444**444*44* 

RFADt 117) I.KHt*NU v NV v Nn«IDVAR,lFX, 
1 1 = 1 ,NP) , J=1 *M0) ,K = 1 ,NII) ,( * C P I I . ^ 
1 F{ TOVAR ,LF .01 on TP ion 
£ 444 44444 44 4444 4444 4 44 4444 444 4 4444444 44 
r CALC1ILATF STIFFNF5S MATRIX OFRIVA 


444444444444444444444444444444444MAIN5060 

MAIN5070 
MAIN50B0 
MAIN5090 
MAIN5100 
MAIN51 10 
MAIN5170 

444444444444444444444444444444444MAIN51 30 

MAIN5140 

44444**44*44**44444**4**4*44444*4MAIM5150 
FRCr ILMII) ,1=1, NO) , ( ( ( Sll ,J,K) , MAIN5160 
•K) , 1=1 .NO) , J=l,4) ,K=l ,NV) MAIN5170 

MA IN51R0 

44* *4 *4444 4*44 *44 4444*44 444444444MA I N5 190 
1 IVF MAINS? 00 


£444 4 444444 4 4444 4 44 4 44444444444*44 4 4444444444444444444444444 4 44444444444MA I NS? 10 


TF( MM.FO.l ) on TP SOI 

FR= I FX *( FRC* APLOf IDVAR ) )*4( IFX -1 

OP SO? 1=1 ,N0 

|>P SO? J=1,N0 

so? Sit f , .1 ) = 51 ( I..IJ + S71 I » .1 ) *FR 
SOI OP ?00 1=1, NO 
np 300 .1=1 , NO 

*no si f r,.u=s? f r ,.o*fkc 


MA I NS? 7 0 

) MAI N5? 30 

MA INS? AO 
MA I NS? 51) 
MAINS? ftO 
MAINS?70 
MAINS? BO 
MAIN5?90 


£#**** 44*44*4**4*444444 ** 44 *44 44*4 4 44 4444*4 4 4 4 4 4*4 44 4 4 4*44* 44* 4*4 * 4*444*M A ] NS 300 

£ CA1.CIILA1F THF PRP0IIC1 11(1) TRANSPOSE *STIFFNFSS MA1RIX OEHIVAltVE MAIN5310 

£ *44*44444 *44* 444 4 444 4* 4* 4* 4*4 ** *44*4 *444 4 4**4444 4*444 4*44*44* *44*4*444*MA IN S3? O 


no qso 1 = 1,1.1 
nn gsn j = i ,no 
9sn r.( i ,.11=0.0 
nn mo k = 1 ,wn 
MM= I.M ( K ) 

IF(MM.I.F.O) OP TP MO 
no 600 I = 1,U 
on Ann .1=1 ,Nn 

sop f.u t j)=r.u l ,i)+niHM,i)4si(K,.i) 

sin com t 1 mi if 

WR I1F( 1 1 ) MO, jnVAR , fir.l I«,l ) ,.»=1 ,MP) , 1 = 1 ,11) , n.M( 1 ) , 1*1, NO 1 
inn cpnttniif 
RFTI1RM 
FMP 


MAINS330 
MAJNS 3^0 
MAINS350 
MA INS3S0 
MAI NS 370 
MAIMS380 
MAINS 390 
MAINS400 
MA1NS41 (I 
MA INS4?0 
MAINS430 
MA INS440 
MA 1^5450 
MA 1NS4S0 
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SURRDin IMF nilM^NI ft t R,r,NFOR*MRANf),NRLOCK,LL *NOI SP* I?, MO) MAIN547(1 


-put in niiMMY loads FnR calculation nF displacement 

OFR I VAl IVFS 

MA1N5490 

RFAL*R A( NFQR.MRAMII ) • R( NFOR.Ll ) , C { NFOB , MO I S P ) 


MA1N5510 

COMMON/ Jl INK /JIINI 1A) ,MLCI4) ,MF0I4 ) ,f>RATI4),ncnMI4) 

♦ JDN1 (26P ) 

MAIN5570 

RFWIfin I? 


MA1N5530 

rf w i Nn no 


MA1N5540 

nn 10 l = 1iNri.ock 


MA IN5550 

R F A 0 ( 110) A » R 


MAIN55M) 

nn ?n 1 = 1 ,nf or 


MA IN5570 

nn ?o j = l ,wni sp 


MA1N55RO 

C( I ,.i )=o .n 


MA1N5590 

NTs ri.-l )*MFOR 


MAIN5M10 

NF=M T +NF OR 


MAIN5M0 

nn 50 i=i , nii i sp 


MA I N 5 f»? 0 

.1 =MFO( I ) 


M A 1 N 5 A 3 0 

IFIJ.LF.NI) 00 TP 50 


MAI N5*40 

IFU.GT.MF) GO TO 50 


MAIN5850 

Cf J-Nl , I ) =1 . 


MAIN5660 

T F( OR A n T ) ,|. T .0 > r.(..l-NI ,1 )=-l.O 


MATN5A70 

CONTI AM IF 


MAIN56R0 

WP I TF ( l ? ) A , C 


MA JN5690 

PF TURN 


MAIM5700 

FNn 


MAIN5710 


SMRROin INF DFRV I OK 1 . 0, R ,NfiJ SP,1.R1 » Nl IMRV , NF 0 , NFOR , NBLOCK »NUMFL t 1 It MAIN5770 
1 13,110,111 I Mft 1 N5730 

C $$*****«**«* $****#«>****:****$***$**£****$:{:* *****$* **$*************$$* N5740 

c CALCIIL A TF niSPLACFMFNT OFRlVflTIVFS MATN6750 

£**********!**** **** ! <i^**#***$$«***$fc$**#*<c**##**** ) {:$$:} ! ***S********$$****MAIN5760 


OIMpMSIOM OR It NimnV,I.Rl I tO( NF0.LR1 ) KAIN5770 

RFAL*P RIWFOR.NniSP) MAIN5780 

COMMON/.H INK/, MINI 3?) ,NP ,111V AR * L 1 *C ( 4 t ?. A ) , LM ( ?4 ) , JUNK 145) MAJN5790 

M7=INniSP“1 )/l.m + l MA1N5R00 

LH=0 MA1N5R10 

RFWJNI) [3 MAIN58?0 

on ?00 11 = 1 ,N T MAIN5R30 


C#*****«* a************************* *#**«*:*«** *************** *$****MA l N5R40 


C MO\/F niSPLACFMFNTS INTO CORF FOR LR 1.0 An CONDITIONS. MA I N5R50 

C**********************************************#************************MAI N5R60 


CALL MOVFne R,n t MFOR,MRLnCK,NFO f Nni SPtLPl f LHtLT, 1 10) 
L1=LH-L7+1 
nn 5n |=) ,NUMnv 
on so j=i ,i.i 


MA IN5H70 
MAIN5RR0 
MA IM5R90 
MAIN5900 


50 or u i ,.i)=n.n 

nn ioo m=i,niimfl 


MA IN5910 
MA I N 59? 0 


f. *************** ******* ******************** ********* ** ******* *********** M A IN 59 30 


C R F A n THF PRfiniir.l IMACTIIAL) TRANSPnSF* STIFFMFSS MATR. DFRIVA1IVF MAIN5940 

C************* ********************************************************** MA IN59 50 


* RFftPtll) NO.inVAR , KC(l,.1),J=I,Mn) , 1 = 1, LI )KLMII 1,1 = 1, ND) MAIN5960 

f # ****** ******************** ***** ********** ******* ************ ***** ******MA I N59 7(> 

C CAl.CHt. A TF 0FR1VA11VFS MAIN5980 

C ** ***** ********* ****** **** ***** ***** ***** * ******************* ******** *#MA IN 59*j() 


nn mo 1 = 1 , no 

mm=i.mi 1 ) 

IFIMM.LF.fi) on m ioo 
nn 5i n k=i ,l 1 


mai nmioo 

MA I MM71(1 
MA I NM>?0 
MA INA030 
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sio hr n i nvysp ♦ k ) =nn i ( i nv ar t k » — c ( k * ! )*oi mm,k i main6040 

ino r.nMT i ni if MAiNAOsn 

C ;*#**«*** ** ^ j)r ***#*«**«# !}t **){:*# «*******#$**>!;# #*#$*****# J NftOftO 

c WRITF niSPl. ACFMFM 1 0FR1VATIVFS PM T APF MAIN6070 

C *******£*******#** £****** fc*#*********************************#***:******^ A J NftORO 


nn too j = i ,i.i ma i Nf>090 

?nn WRJ1F( I 3 ) ( OK I ( K , J ) , K= ) « NIJMPV ) MA f MA 100 

?00 f.flMT 1 Ml IF MA I Nft 110 

RFTHRN MAJNftl?0 

FMH MA1NM30 


SIIRROMTIMF OISP( R ,0 , AMOA ,MOl SP , ICnN) MAI Nft 140 

F****$*«* ******************* **$***#*fr*****$£*****#**#*#**^#*****##***$*M A I Nft 150 


C FIMn DMT ACTIVF L AM RD A ■ S( IF +VF 0 I SP . CONSTRAINTS) MfllNMftO 

C *********************************************************************** MAI Nft ]70 


n IMF MS I PM P ( 4 ) * 0 ( 4 , 4 ) , AMIIA ( 4 ) 

ir.nNswnisp 

I F( mdisp.gt.i > on to ono 

AMOA ( 1 )=R() ) /D ( 1 ,1 ) 

! F ( A M 0 A I 1 ) .GT .0. ) RFTHRN 
A MOA ( 1 )=0. 

ICOM=n 

PFTIJRM 

too IF( 0( ?.? ) .NF .o. ) c,n TP in 
T F | 0(1,1 ) .nf.o. ) on in 1) 

AMOA ( 1 ) =0 . 

AMOA (?) =0. 

TCnw=o 

RFTHRN 

l 1 AMOA { ll=R|ll/n(I,t) 

A MO A ( ? >=n. 

IC0M=1 

IFfAMOAM I.GT.O. ) RFTHRN 
AMOA ( 1 )=n. 

ICPM=0 

RFTHRN 

10 IF( nn , 1 ) .nf.o. ) (;n ip ?o 

AMOAt 1 ) = 0 , 

AM0A(?)=P(?)/0(? t ?) 

TCONsl 

IF ( AMOA (? ) .G7.0. ) RFTHRN 
A M OA ( ? ) = 0. 

TC0N=0 

RFTHRN 

?n ofi. =n ( i ,1 )#o( ?,? )-n< i ? ? )*n( 1 ,? ) 
ci=0 ( i ,i )*ni ?,?)*i . of - oft 

I Ft ANSI OFI. J.GT.C1 ) GO TO 30 
A 1 =R { ) )/0( 1.1) 

A?=R( ? ) /0(?,? ) 

1F( A1 ,I_F .0..AM0.A7.I.F .0. ) GO TO 40 
IF ( A7.GT. A] ) GO IP SO 
AMnAt 1 ) = A1 


MAlNftl 80 
MAI Nft 190 
MA I Nft? 00 
MAINft? 10 
MA I Nft? ? 0 
MA I Nft? 30 
MA I Nft? 40 
MA I Nft? 50 
MAINft? ftO 
MA I Nft? 70 
MAINft? 80 
MA I Nft?90 
MA [ Nft300 
MA I Nft 3 10 
MA I Nft3? 0 
MA 1 Nft 330 
MA I Nft34() 
MAI Nft?50 
MA I Nft.3ftO 
MA I Nft37 0 
MAINft 3 80 
MAINft3T0 
MA I Nft400 
MA I Nft4 l 0 
MA I Mft4?0 
MAIMft430 
MA I Nft440 
MAINft450 
MA 1 Nft4 ftO 
MA 1 Nft470 
MA I Nft4 80 
MA I Nft 490 
MAT Nft 500 
MA 1 MftSlO 
MA INftS?0 
MAI NftS^O 
MA J N ft 5 4 1 1 


A M 0 A ( ■? ) = 0 , 

ICONS 1 
RFTHRN 

SO AMOA ( 1 )=n. 


MA I MftS50 
MATNftSftO 
MA I Nft S 7(1 
MA| Nft 5 HP 
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AMPA(? )=A? 

ICnMai 

RFTHRM 

An AMnMi) = n. 

AMOA ( ? ) =0 • 

TC0M=n 

RFTIIRN 

amha ( U = (f)|?,?i*Rti ) — n< 2) )/mfl 

AHnA(?) = (-rn?, n*R(i )+m i ,1 )*r (?) j/ofl 
1 f ( a m r > a ( \) .r,T.n..ANn.AMnA( ?) .in.n. ) rfiurn 
IF tAMnAl] ).G7 .amoa( ?) ) on in An 
amom i )=n. 

AM0A(?)=R( ?)/P(7*? ) 

1CHM=1 

? F f AMPM? ).r,T.n. ) RFTIIRN 
AMDA ( ? ) = 0. 
irnM=n 
PF TURN 

AO AMnAH )=R ( l )/mi f i ) 

AM0A( ? )=n. 

T r.nN = ) 

r fc amha( i ) .m.n. ) rftijrn 

a mo a ( ] )=0. 

icnw=n 

RFTHRM 

FMn 


MAI NAS90 
MA INAAOO 
MAINAA10 
MA I NAA70 
MAIMAA30 
MA 1MAAA0 
MAINAA50 
MA TNAAAO 
MAINAA70 
MA JNAA80 
MAIM6A90 
MA 1 MA 7 (10 
MAINA710 
M A ] M A 7 ? 0 
MAIMA730 
MA (N6740 
MAIM67b() 
MA JNA7A0 
MA1NA770 
MATNA7K0 
MA 1 MA790 
MA I NAHOO- 
MA I N AH 1 0 
MA 1MARP0 
MA I MA p 30 
MAJNAP^O 
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SMBROHl 1WF nUFSlNf OR I * I HI , API. 0 ♦ A STR , All I S *I>WT ,flP 1 I Nn, NMMDV, ND| SP * MAIN6B50 
1 n.n.IR.TW) MAJN4R40 

£*********************************************************************** MAJN6R70 

c CARRY nOT H I SPL ACFMFN T RFHFSIGN HR SC A LING MMNARRO 

f^*** ****************************************************************** **MA I N4890 
niMFwsinM inn niimov ) t &nui( nhmdv ) , astk (mumiivi ,api s(numiiv) , ma i MA 9on 

) OR I ( Ml PMPV , WO ISP) ,UWT INItMIIV) ,PPT INP(NIJMDV ) MAINA910 

C.nMMflM /CON TR / 1CYCL »NCYCI_i l SCALF , NSCALF , KSC ALF , KPNVG , IOFSN, 1 W 1 M l N , MA I N*>9?0 
] W1M I W, F PS I L * PFLl A 1 .IIFI.1 A?,KP»INCH,KPJ S P , MMA XP , NP I SStLHl ,ALPA,SF, I S,MAINf>9 30 
1 SMAX,nMAX t HMFGA MA|N*Q40 

C PMMPN/ ,11 INK / JMN ( 1M , ML ( 4 ) t MF ( 4 ) , DR A T ( 4 ) , !>CPN<4 ) ,P(4,4) ,R (4) , AM|) A ( 4 MA I N69 50 


U ,S( 4) , ,11 INK ?4P) 

OAT A TAPI ,TAG?/3HACT.4HPASS/ 
0FL5=5.n*( 1 ,0-PFI. T A 1 ) 

PFI.T1 1 = 1. O-nFI. 5 
PFI,T??=1 .P+PFI.5 
BACKSPACE i« 

RFAP( in) MW T 
RFWJMP II 
PFAP ( II )AP1.P 
RFWIMP 1? 

PP M 1=1 ,MPTSP 

41 P F A P ( 1 ? ) (OR M,I,I ) , J=1 , All IMPV ) 
AO TF( KONVG.FO.l ) CP TP 501 


KAINA9A0 
MAI NA970 
MA INA980 
MAINA990 
MA 1N7000 
MAIN7010 
MA IN7070 
MAIN7P30 
MA 1M7040 
MAIN 7050 
MA I N 70 60 
MAI M7070 
MA 1 N70R0 


C ********************************************************************* **MA I NT 090 

C P I SPL ACFMFN T CONSTRAINT RFPFS10N MAIN7100 

C ********************************** **************** *********************m A I N7 1 10 
RFAO( 1 1 ) AS TR MA IN7170 

BFWlMn 11 MAI NT 130 

TF(IS.NF.l) CP rn 1 ni MAIM7140 

C*********************** ************************************************ MAIN7150 

C COMVFRT PISPLACFMFMT RATIOS ANp PFPIVATIVFS TP THE SCALFP DFSIGM MA1N7160 

f ******************************************************************* ****M A 1 NT 170 
PP 99 [ = 1 t NMMPV MA \ M71 RO 

99 AP|.P( ! )=AOLni I)*SF MAIN7190 

SFF = SF^4KSC A1.F MA I N7? 00 

SFFF=SFF*SF MAIN7710 

on in? ! = i,mpisp m A i n 7 ? ? o 

PRAT ( T ) =PR A 1 ( I ) / SF F MA1M7730 

nn in? .1 = 1, niimpv main 7?40 

in? PR1 ( J, 1 )=ORH .1, U/SFFF MAIN7?50 

******************************************* X* ****************** *********NA IN 7? fiO 

C CLASSIFY PFSIGN VAR1ARLFS FJ7HFP AS ACT I VF PR PASSIVE MATN7?70 

C PFSIGN V AR I A 10. F S VI I TH THF I R PFR|VATIVFS FOR ALL PPTFNT I AL LY MAIN7?H0 

C ACT I VF PTSPI.ACFMFNT CONSTRAINTS AS POSITIVE AR F PASSIVF VARIABLFS MA|N7?90 

C********************************************************************** *MA | N73PO 


1 01 


MAIN7310 
MA ! N7 3? n 

) OP TP 49 MAIM 7330 

MA IM7340 
MAIN? 350 
M A f M 7 3 4 0 
MAI N7370 
MAIN73MO 

C ************************************** ************** ****************** *MA I M7 390 

C TTFRATIPM TO F IMP PUT ACT l VF /PASS I VF CL A S S 1 F I C AT I PN HP DESIGN M(k|N7400 

f VAPIARI.FS MAIM 741 M 

r; ************* ** ******************************************************** main 74 ?n 
70 P mac =1 MA 1 N 7430 

{^*********************** ************************ **v ********************* fa AIM 74 40 


PP 5p 1 = 1, Ml IMPV 
nn 5 1 .1=] ,MP ISP 

TF(PRT ( N,U.L1.0, 
5 1 CONTI Ml IF 

mi ( 1 ) = 0 
on tp 50 

49 F PI < 1 > = 1 

50 CPMTTMUF 
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C CHFCK IF ALL DFSIGN VAR I ARL FS ARF PASSTVF MA1N7450 

£ ************* ft* ******* ******* ********* ************************ ********* m/\ IN7460 
nn 5? I=1,NHMDV MAIN7470 

iFtinnn.Fo.n go m *599 main 7 aro 

6? rnNTIAHfF MAIN7490 

C ***************************************************************** ******M A 1N7 500 

C -A LI. OF SIGN VARIARLFS AP F PASSlVF. 1AKF STRFSS DESIGN AND GO FPR MAIN7510 

C NFXT D F S I GN r.vr.1 F MAIN75?0 

C ******** * *** ** ********** a ***** **** * ********** *********** * ** ***** *** ** MM N 7 6 3() 

ICHNsO MA]M75^0 

GD 70 6p? MAIN7550 

Q ******* ft* ******************************************************** *****#NA IN 7660 

C CAI.CIII.ATF RIGHT HAND S1DFS PF S I MUI_ TANFPtlS FQUAIIPNS Ff'R LAMBDAS MAIN7570 

f; ft* ********************************************************************* ftA|N7SR0 


699 nn RO 1 = 1 .4 


MAIN 7590 

R( I )=n . 


MA 1 N 7600 

AMDAf I 1=0. 


MAIW 7610 

nn ro j=i ,4 


MA 1 N 76?0 

RO DC T ,.U= 0 . 


MAI M 7630 

nn inn 1=1 ,mhisp 


MA 1 M 7640 

op=o.o 


MAJM 7650 

DA= 0 .0 


MA 1 N 7660 

nn uo j=i,numov 


MAI N 7 670 

I F ( mi t.n.Fo.i j on th i?n 


MA JN 76 RD 

nP = DP + ORI f J, I )*( ASTR < J l-APLDU I ) 


MAIW 7690 

fin Tn no 


MA J N 7700 

l?n DA=DA+nRI u, 1 )*APLDtJI 


MAIM 7710 

110 cnMTINUF 


MAIN 7770 

100 Rtf 1 = M-ALPA)*DA+( I-AHS UIRATI f ) ) J* 

dcpn ( i J -np 

MA[N 7730 


£*********************************************************************** MA IN 7740 

C nFVFI.np r.DFFF IC1FNT MATRIX FDR I.AMROAS MAIM7750 

j;************************#**#**********************#**************** ****MA IN 7760 
DO ?60 I=] t NDISP MAIN7770 

nn ?60 J=I,MDISP MAIN77RO 

D( I t .l ) = n. MA1N7790 

nn ?60 K=1 fNHMDV MATN7R0D 

I F ( ini (K).FO. 1) ni N*I»=D( I,,l)+OR I (K , I )*ORI (K, J)*APLD(K)/UWT <KJ MAIN7B10 
7A0 CnMTINIIF MAIN7R7D 

n ( T ,J)=-DI I, J )*().- ALPA ) MAIN7H30 

?60 n( . 1,1 »=D( I ,,)) MAIN7R40 

f ;****** ****** ft ft ******* ft* ft ft *************** ********************** ********* m A I N7R50 

C ITFRATIOM TP FIND ACTIVF DI SPI. ACFMFNT CONSTRAINTS! IF +VF L AMRDA 1 S ) MA I M7R60 

C****************** ***************************************************** MA T N7R70 
CALL D|SP( R .n,AMf)A,Nni SP , 1 CPM) M A J N 7 R R 0 

IFMCnN.MF.OI GP TP 601 MAIN7R90 

60? WR 1TFIIVM006 ) I CPN MAIN79D0 

WRITFM1I ASTR MAIN7910 

GD TO 971 MA1N79?0 

C****** ************************************************************** ***MA I M7930 

C CAt.CULATF REDESIGN FROM n I SP I. AFT MFN f f.PMS TR A I N IS MA|N794f) 

f *********************************** ********************************* ***M/\ I N7W50 

6oi nn son i=i,MiiMnv ’ main7960 

C=n. MAIM797D 

nn ^io .i=i f Nnrsp majn79ho 

610 c =C+AMDA I J )*np I ( I , J ) MAIN7V9D 

nPT?Nf>| i i=c/iwm T ) MAiNftnnn 

CM AI.PA-n .-AI.PA ) *PP T I Nil ( I ) )*ADUH I ) MAINR010 

I F ( C • GF . A S T R ( 1 ) ) GP IP 5?0 MA J MHO? P 

IF f ID] I 1 ) .FI.). 1) MAf>.P MA1NRD3D 

ini.M)=n HA I NROMJ 
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APT S f F > =A STP ( I I MA 

on m son ma 

S?0 APTS (I )=r. ma 

t f ( mu t i.Fn.n) mac=o ma 

mim = i ma 

SOO CONTINUE MA 

C444444444444444444444** 4 4 444 *444444*444444 ^ 4 444 444 4 4 4 4 4 4 4 4 4 4 * 444 4 4 4* 4 4 * 

C CHECK FOP any CHAMfiF IN AC H VE/PASSI VF CLASSIFICATION OF DESIGN HA 

C VAPIAMI.FS MA 

f,44* ********** *4, ******4*4**4*444**4**4444#444*44*44*44*4444**44*4*444444MA 
IF( MAC.FO.D) GO IP 700 MA 

f ;********* ************ ******** **** ***** * *4*44 4 ********* ***** ******** **4 *m A 

C PP I NT rtPlIMAl.HY INOFX MA 

(~ ******************************************* 4 4 4 4 ***** 4 4 * * 4 * * * * 4 4 4 * 4 * 4 4 * * M A | 
WR MF( IW*?OP? ) MA! 

no ?sn i =1 ,numov ma 

T AG= TAG] MA 

I Ff mi (I) .FO.OI TAG = TAG? MA 

75 n wmiFUW,70P3) I , TAG. DPI INDM) MA 

WR TTF( IW.IOOA) ICON MA 

I F ( SF . G 1 . nF I. 7 A ? . OR . S F . L 1 • DF L T A 1 ) GO 10 701 MA 

IF(nMAX.GT.nFI.TA7.nR.r)MAX.LT.nFLTAl ) GO TO 70] MA 

£****************** ***************************************************** Ml* 

c CHECK FOR DISPLACEMENT OF SIGN CoNVFRGFNCF. MA 

£44444 4 *444**44 4*444* 4 *4 4*4444 4 4 444 4 4*44* 4 4 * #4 *************** * 4444444444 MA 
nn 70? i =1 v NiiMnv ma 

IFffnifl) .FD. D ) GO 70 707 MA 

r. = -nPTlMD( u MA 

I F ( C.Gl . DFL 1 77 ,0U . C • L 7 • DFI. Ill) GP T(1 701 MA 

70? CONTI Ml IF MA 

komvg=a MA 

MR TTF | TW,?0D1 ) MA 

RFTIIRN MA 

C 44444444*44*4*44**4*4* ******4******4*44*4*4444*444444444*****4444444444MA 

C CAI.CIII.A1F Sr.Al.F FACTOR FOR UNIFORM SCALING FROM D I SPL ACFMFN1 MA 

C CONS FRA JNTS MA 

C**************** ************ *******************************************M£ 

sni no 503 .i = i,nptsp ma 

SU)=0 MA 

DO SO? I=\,MUMDV MA 

SO? SI, I J = SU)+OR I ( I ,.l) 4APt.niI ) MA 

so^ S( .II=DCONt .!»*[ 1 ,n-ARS( DRAU.m )/S( .11 + 1. MA 

DF=0. MA 

nn 504 1=1 ,ND I SP MA 

IF ISII 1.G7.DF )DF = S( I ) MA 

SPA CONTI MIJF MA 

CALL MFSG( SF.DF.DF , |W) MA 

I FC DF.GT.SF )SF=DF MA 

no sns t = i,miimdv ma 

SOS ADTSI 1l=Am.D( I )4 SF ma 

RFUJwn 11 MAI 

701 VIPTTFI 11 ) AIMS MA 

071 RETURN MA 

100A FORMAT! //] X.A7HNP. OF AC1IVF D I SI* L Af.F MFN I CON S TR A I M I S ARF *15) MA 

? 00 1 FORMAT {ASH nr SPI.ACFMFM1-CR n ICAI. PFSIGM has CONVERGED //) MA 

?0O? FORMAT(//A?H OPTIMAL I TY INDEX OF DFSIGN VAR I API. E S FOR OISPT. COMMA 

1 STRAIN IS //hy.SHOV NO, 1 X, 7HACT/PAS ,AX,‘)H1NI)FX /) MA 

?003 FOPMATt 5X f lS,A10*n 5.5 ) MA 

F Nn MA 


NROijD 
NHOAO 
Nfl 070 
MHO KO 
NR090 
Nflino 
NH 1 10 
N R 1 ? 0 
NH1 30 
NR 1 40 
NR l 50 
NH 1 AO 
NR 170 
NAIM) 
MR 190 
NH7 00 
NH? 1 0 
NH770 
NR? 30 
NH? 40 
Nft? 50 
Nfl? AO 
NR770 
NR? HO 
mr ? 9 n 
Nfl 300 
MH310 
NR3?0 
MR 330 
MR340 

Nfl 350 
NR3A0 
NR 370 
NR3P0 
NH 390 
NR400 
Nfl 410 
NP470 
NR430 
NR440 
NR450 
NR4A0 
MR 47 O 
NH4H0 
MR 490 
NH 5 00 
NH 5 1 O 
MM 570 
MR530 
NR 5 40 
MRS 50 
NH 5 AO 
MR 5 70 
NflSHH 
NH 590 
N HA 0(1 
NflAl O 
M HA? 0 
MR A 30 
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RIlRRmnjMF TRUSS ( A,MTPT ) TRIJSOOOn 

C TMRFP D I MFMS f PNAL PAR Ff.FMFNTS TPUS0070 

£ ************ ****** * 6 $$ #*** * 66 $ * 4 *fRUS 00 30 

n T M F M s i pw aimtpt) TPiisno4n 

COMMON /Ft. PAR/ Mp AR( 14 ) ,NI)MMP , HR AMP , NFL T YP , N 1 , N? t N3 , N4 * N5 t MT T T *NFQTRMS0050 
1 « MtlMFf. , Ml I MR V .M) ,M7 t M?,|. |. f (_R , MFOH * NrtLPC* 

COMMON/ JUNK / JUN( 1 A ) ♦ l T , L H , I. , S 1 G( ? 7 ) . 1 OV AR , 1 F X , FRC . AR E A , J1 INH ? 50 ) 

COMMON /I IN I TS/IR* IW. IP* II. 1?,!?, 18, 19,110, HI, II? 

NI1MF = NPAR( ? ) 

K OPFaNPAR ( 5 ) 

IF( WPARt 1) .FO.OJGP TP 500 
nn in ( i f \ ,? j , KonF 

C KODF =1 1NFRTJA IS PROPOR T | PMAI. 10 ARFA FPR LOCAL BUCKLING TRUSO 1 40 

C ? INFRTIA I S PRPPPflR M PNAI 70 ARFA**? FPR LOCAL RUCKLING TRUS0150 


TRUS0060 

TRUS0070 

TRUSOORO 

TRIJS0090 

TPusoino 

TRUSOUO 

TRUSni?0 


1 MUMM AT =N PARI 3 ) 

MUMr,FP=MPAR{4) 

MI|MTC=MPAR( A ) 

NA=M5+MUMMP 

W7=Wf, + NI|MMAT 

MP-N7+MUMMA7 

M9 = Nfl*NUMMAT*M|JM7C*5 

MM=M9+MIMGFP*?-MTPT 

TF(MM.GT.0)C.ALL FRRPR(MM) 

CALL RUSS ( A ( Ml ) ,A I N]} » A IN? ) , A (M? ) , A <M4 ) , a (N 5 ) , A INF ) , A(N7 ) , 
]A( Nfl) » A I MQ) f NIIMPV •NIIMNP t NIJMMAT »MUMJC »NUMGFPf KPPF r NUMF ) 
RFTIIRN 


TRUSO 1 70 
TRUSOlflO 
TRUS0190 
TRUS0700 
TRUSO? 10 
TRUS0??0 
TRUSO? 30 
TRUS0740 
TRUSO? 50 
TRUS0760 
TRIJSO? 70 
TRUS0?R0 


C***************************,^**^!^,),,*^,),,^.^*^,^^,^^^^,^^^,^^^^^^^^^^^^.^^^ ISO? 90 

C PROVISION FPR^SPTT. IAL TRUSS FLFMFN7 TRIJS0300 

C it************ 


? CALL NOFLFM (NPAR( 1 ) ,NPAR( 5 ),IW) 

RFTIIRN 

500 WPT 7 F (JW,?PO?) KPPF 
PP POO MM= 1 # M| IMF 

CALL S 7 PSCI A(Ml) t A{M 1 J .A(N 3 »,NFO t NUMnv,l L.LK. 1 R. 0 ) 

WR 7 TF ( IU,? 00 S) MM , ARF A 
OP POO l_s|_T t |_H 
IFII.RT.I_T) 9 R I TFI [ W, ?004 1 

CALL S 7 RSCI AI Ml ) , A(N 1 ) ,AIN 3 ) » MF 0 ,M| IMIIV , |. L * L R * IB, l ) 

WRITFf IW f ? 007 ) L .Slot 1 I 
* GO in 13 * 3 * 4 ) t KPPF 

£***** * 6 ****** ***** 444 * **** ************ * *** *6 * ******** * 6 * ***** ******* ** *TR(/S 04 HO 
c OF SIGN nF AAR FI.FMFN 1 S FOR STPFSS ANP LOCAL BUCKLING TRUS 0440 

£ * 6 * 6 + ******** 6* *6 ******* *********************** ****** 3333*333 333333 3333 

? CALL niRUSS ( A I Ml » t A(M?),AIM 3 ) t MUMPV) TRUS 04(50 

GO TP ROO 7 R US 04 70 

C** 6 * 6 **** 666 **** 666 ** 66 **** 66 *** 6 * 6 ** 6 ** 66 * 66 * 6 ** 6666 *** 6 **** 6 * 6 ******* 7 R()Sn 4 B() 

c PROVISION FOR nFSIGN PF SPFC 1 M. TRUSS FLFMFMT TRUS 049 (j 

G ***** 6 * 66 ** 6 ** 6 * 6 ****** 6 ******* *** 6 ******* * 6 * 66 * 6 6 * 6 *** * 6 ** 6 ** 6666 ***** TRUSO 500 


TRUS03?0 
TRIJS0330 
TRUS0340 
TR US 03 50 
TRUS03A0 
TPUS0370 
TRUS03HO 
TR US 0390 
TRUS0400 
TR US 04 10 
TRIIS04?0 


4 COMTINUF 
BOO r.ONTINlIF 
RFTIIRN 

?0n? FORMAT ( / /47H ANALYSIS OF TRUSS Fl.FMFWfS. Cf'NSTPN CP0F*,I2 
I 47H FLFMFMT X-SFCr ARFA LOAD CPAIP AX I AI FURCF 

700^ FPPMATnH+ ? 74y f I5.4X.F1?. 4 I 
?004 FORMAT! / ) 

7005 FORMAT! I7.7X.F J2.4) 

fno 


// 
/ 1 


TRUS0S10 
1RIJS0S70 
TRUS0530 
TRUS0540 
7RUS0550 
TRUSOSM) 
TRUSO 5 70 
JRUS05M0 

V RMS 05 90 
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SlIRRHiniMF RUSS (UWT,in,X,Y,7.1,NTC,WT,PMA1,PGFn,NUMnV,NUMNP, TRUS0600 

l WIIMM ft T * WIIMTC ,NIIMGFP, KPOF , NUMF | TK1IS0610 

j; ********************************************************************* **jr US 067 0 

C UNIFORM CROSS SFCTtnN RAR F L F M F N T S TRUSO630 

C******** *************************************************************** TRIJ50640 
IMPLICIT RFAI.*R (ft-H f n-Z) TRUS0650 

RFAL*4 X » Y » 7 » T , W1 • PMftT , PGFP • UWT • FPC , RUCK YY, RUCK 7 7 • fcF 3 , FF4 rRUS0660 

DIMFMSinM f nc MU MNP ,6 I ,X( NUNiMP > ,Y( NIJMNP) ,7< NIIMNP) , TINUMNP) , TKUS0670 

1 NIC ( WlfMMft 1 ) , WKNIIMMftl ) » PM A 1 f MUM TC , 5 * N1IMM AT ) , PGFOI NUMGF 0 , 2 ) , TRUSO6R0 

. ? UWT( NUMnv ) TRHS0690 

COMMON/FM/LMf 6) ,S( i £ >,M,P(6,4>,ST(6),-mM,XM(6),FMK?A5M TRUS0700 

COMMON/ JUNK /FMUU 4,4 1 ,FF(4 ) »RHO » TE MP , X X I 21 » YY ( ?) , Z Z I 2) ,V(4) , TRUS0710 

1 JIIM(7?6) TRUS0720 

COMMON /UN I TS/IR,IW, IP ,11,17, I3.IR, 19, no, in, II? TRUS07 30 

C**** ******************************************************************* jR | JS074O 

C CONTROL INFORMATION TRUS0750 

f ****************************************************************** *****7PUS07fc0 
NIP=1 TRUS0770 

NV=1 TRUS07ft0 

NW=1 TRUS0790 

N0=6 TRUSOPOO 

NS = 1 TRIISOftlO 

NJ = 4 TRUS0R70 

IFX^KOOF TRUS0R30 

WR I TF ( I W, ?000 INI IMF ,KPPF , MIIMM Al , NU M 1 C * NIJMGFO TRUSOP40 

f ********************** *************************************************y R (jSOR 50 

C MftTFRTAI. PROPFRTY CAROS TRUS0R60 

C ************* ********************************************************** TRUS0R70 
WR TTF ( I W, ?00l ) TRUSOflftO 

on 10 1 = 1 A T TRUS0R90 

RFAO ( I R * 1 00 l )N*NTC(N)»W1(N) TRU50900 

IF < NTCt M) .FO.O) MTCIN) = l TRUS0910 

WRI TF I IW,?00? »M,NTC(N! ,WT (N 1 TRUS0970 

q*********************************************************************** TR US 09 30 

C TFMPFR A 1URF npPFNOFNl MATFRlAI. PROPFRIIFS TRUS0940 

(3*********************************************************************** TRUS0950 


ni=mtc*ni 
no 10 J = ] , M T 

RFAO I I R , 700R ) (PMATI J,K,M1 .K=l ,S) 

I F( PMAT( .1,5 ,N) .LF .0) PM A T( J , 5 , N > =PMA T ( J . 4 , M ) 
IF U.NF.l) WRI1FI I w * 7009 ) 

10 WR J TF ( TU,?010> ( PMAT( J,K,N) ,K=1 ,5) 


TRUS0960 
TRUS0970 
TRUS09R0 
TR US 09 90 
TRUS l 000 
TRUS 1010 


c ******** ********** ***************************************************** TP US 1 07 o 
C- GFOMFTRTC PROPFRTY CARnS TRUS 1030 

C*************************************ft********************************* TRl jSl ()4Q 

WR1TF( 1W.7006) TRUS 10 SO 

no 51 ] = 1 ,MUMGF 0 TRUS10M) 

RFAO ( IR,1006)N f ARFA,(PGFn(M,.l),J=l,?» TRUS1070 

TFfARFA.I F.0.0 ) ARFA= 1 .0 TRUS10R0 

OO RO .1=1,7 TRUS 1090 

RO IF f PGFfHN, J) .I.F.O. » PGFfMN, , I ) = 1 000000. TKUSUOO 

WR I T F ( I W ,7007 ) N * ARF A , ( PGFO ( N , J ) , J = l , 7 ) TRUS 1110 

AA = ARFA**IFX TR US 117 0 

On 51 .1=1 ,7 TRUS 1 1 30 

M PGFPIN, J1=9.P696*PGFP(N*J )/AA TRUSJl 4 * 1 

C********* ******************************************** ****************** TRUS 1 1 50 

C FI.FMFM1 LOAF) Mill. T I pi. IFRS TR US 1 1 Ml 

C************************ft**************************** *»* **************** TRtlS 1 1 70 
RFAO* |P,inO^|FMIIL 1RUS11R0 

WR1TFI IW,?n03)FMUL TRUS1190 
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£ 4444*4 44*4444444*44 44 4* 44 4444*4 4*4*444 ***4*44 44 444 *4 ** *44*4* *444444444* TR IJS 1700 

C FI.FH6NT CARDS TRUS1710 

C ****** *******4**** *4***** 4**44 44 4*44 44**4*4**444*444444*44***444****444 TR US 1 77 0 


WRITFf !W,?005) 


TRUS 1 7 30 

M= 1 


TRIJSI^O 

RFAnf I R * 1004 ) I FI. .1I*.U* 

1 M AT . 1 GFO , I OV 

.FRC.RFFT.FLPYY.FLPZZ.INC TRUSl? 50 

!F(1FL.LT.M) GO TP 700 


TRIJS1 26U 

TF( FRC.LF.O.O) FRC^I.O 


TRUS 1? 70 

IFflMC.FO.O) INC=1 


TRUS 1780 

IFf FI.PYY.LF .0,01 FLPYY = l 

.0 

TRUS 1790 

1F(FLP77.LF.0.0) F L P 7 7 = 1 

.0 

TRUS l 300 

KK = Twr.*( IFL-W) 


TR1JS1310 

1 =T I-KK 


TRUSl 3?0 

J = .I.I~KK 


TRUS 1 330 

on 5oo nfl=m.IFl 


TRUS 1340 

XXI 1) = XC I) 


TRUS 1350 

XX(?)=X<J) 


TRUS 1360 

YYf 1 1 - Y( I ) 


TRUS 1 370 

YYf?)sY(J ) 


TRUS13H0 

7.71 1 ) = Z( 1) 


TRUS 1390 

77 ( ? J = 7 t J ) 


TRUS 1400 


£4**444**4444**444*44*4 4 444 444 4 4 44 4* 444 4 *4 4* 4*4*444444 4*4444444* *44444 *4 TRUS 14 10 

C 1MTFRPPLATF MATFRTAI. PRPPFR7 1 FS FPR AVFRAGF FLFMFNT TFMPFRATURF TRUS1470 

£**44444444***44*44*4*44*44444444444444444 4**444*444*4*4 4444*4*44444444*7 RUS 1^30 
7FMP=n.5*f T(IJ+TM) ) TRUS1440 

CAU TNTFRPI PMAT,FF f NUM1C,NHMMAl f S,A,NTC( I MAT) ♦ I M AT , TEMP ) TRUS 1450 

£ 4******4***44*44*4**444*4***4**4*44**44444*444*4444************4*44*4**TRUS1460 

C FORM FI.FMFNT UN*f T MATRICFS ANO LOAD VFCTPRS TRUS1470 

£****** ******************* ********************************************** JR US 1 4H0 


RHn*WTf IMAT ) 

TRUS 1 490 

tfmp=tfmp-rfft 

TRUSl 500 

CALL FTRMSS 

TRUS 1510 

HHsFF 1 1 )/ 1 V ( 4 ) 4 V ( 4 ) ) 

TRUS 157 0 

RHCKYY = PGEPl IGFP, 1 )*HH4FI_PYY 

TRUS 1530 

RUCK77=PGFn( |GFO f ? )*HH*FLPZ7 

TRUS 1540 

FF3- FFI 3 ) 

TRUS1550 

FF4 = FF f 4 ) 

TRUS 1560 

UWT( 10V ) =l)WT ( IOV ) +RHP4VI * ) *FRC 

TRUS 1570 


^4**4*444*44*4*444444*444444*4*4***44**44444*4444***4*4444*4444*44444444TRUS1 5R0 

C FORM f.nCATIOM MATRIX AMO COMPUTE RANH WIDTH TRUSI590 

£********************* *4 ************************************************ XRUS l 600 
on 400 L=1 ,3 TRUS 1610 

LMfU = JDM*L> TRUSl 620 

400 LM(L+3)=10( J,U TR US 16 '30 

CAI.L CALRANIMOIF, LM, S.PtST, TT ,M)J,WV f MS,MO,MW, JOV, !FX,FRC) TRUS 1640 

V/R1TF (IP) NI t RUCKYY,RUCK77 ,FE3,FF4 TRIIS1650 

WRTlFf JV.7004) MFt. ♦ l ♦ J t I MAT , I GFP . ! P V , FRf. »R FF1 , F LPYY * ELPZZ * NOI F TRUS1660 
(;***44*444 44 44 4444 4444 *4 *4* 4444* *4444 4 *4444 4 44*444 *44444444444444*4*4444 TR US 1670 

C CHFCK FOR MORF F(.F MFNJS TP US 1.6R0 

£******************* ************************4 4 4*4***$4***4*****#***4****yRUSl690 
I-l + INC TRUST 700 

Js.J+fNC TRUS 1710 

500 COMTIMUF TRUSl 770 

M=IFI. + 1 TRUS 1 730 

IFfM.LF.WUMF) GO TP ]D0 TRUS 1740 

RFTURN TRUS 1750 

700 RRHFI IW,?01l ) TRUS1 760 

STOP TRUS 1 770 

100J FORMATf PI6.F10.0) TRUS17H0 

1003 FHRMATf 4FIO.O) TRUS1790 
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100A FORMAT ( ft! S,4F 1 0.0, I 5 ) 

100ft FORMATl I5 f 5X,3F 10.0) 

P000 FORMAT ( A4 HI NUMRFR OF TRUSS Fl„ FMFM T S 
1 4 4H CONST RUCTION CnDF 

? aah miimbfr of materials 

3 A4H NUMRFR OF TFMPS FOR WHICH MAIL PROPS 

A 44H NUMBER OF fllFFFPEMT GEOMETRIES PROPS 

?001 FORM A T( / / P5H MA7FRI&I. PKOPFR FY CAROS // 

1 9 1 H matfrtai. mumrfr spfcific 
?. OF / — Al.LPWABLF STRESSFS--/ / 

?9]H NUMRFR OF TFMPS WFIGHI IFMP 

4XPAM TFNSTON COMP R F S S I ON /) 

POO? FORMAT IIA,SX, I 5. FI ?. A ) 

?003 FORMAT!// ?SH F L F MF N T t.OAO MHI.TIPI.IFRS / POX * 1 HA 
1 1AX.lHn,/AM X-niR,AF1 S.ft/ ftH Y-niR ,4F 15. ft/ ftH Z 
? ftH TFMP.4F15.M 
POOA FORMAT 1 !7,1X,5I7,4F|?«4,I7) 

POOS FORMAT! / / ? 3 H PROCFSSFO FLFMFNT DATA// 

11]ftH FLFMFNT /-NOOF NOS-/ /--FLFMFNT I IT NOS-/ 
PRFNCF FNO FIXITY COEFFICIENTS RANH 

3]] ftH NUMRFR I J MATl. GFOMY U VAR 

4FMP YY ZZ WIDTH 

POOft FORMAT I// PS H GFnMFTRIC PRnpFRTY CAROS// 

!4ftH GFOMFTRY X-SFCT / — MDMFN TS OF INERTIA — 

pA SH NUMRFR ARFA YY 71 

POO 7 FORMAT! I ft » ? X , 3F 1 ? .4 ) 

POOR FORMAT ( 5F 1 0 . 0 ) 

?009 FORMAT! / ) 

PO 1 0 FORMAT ( 1H+,30X,SF1 P.4) 

P011- FORMAT! PRH TRUSS Fl.FMFNT CAR)) IN FRRPR ) 

FNO 


= .15/ 

TRUS 1 ROO 
TRUS 1 R 1 0 
TRUS1RP0 

= .15/ 

TRUS 1 R 30 

= ,15/ 

TRIJS 1 P40 

G1 VEN=, 15/ 

TR US l R 50 

GIVEN*, 15) 

TRUSlRftO 

YOUNGS COFFF 

TR US 1 R 70 
T TRUS I RRO 

MODULUS THERM 

TRUS1R90 
E TR US 1 900 

, 14X, 1HB, 14X.1HC , 

TRUS 19 1 0 
TRUS19P0 
T R US 1930 

:-0IP.4F15.ft/ 

TRUS I 940 

TRUS I 9 50 
TP US 1 9ftO 
TRUS 19 70 

DESIGN VAR R E FE TR US 1 9B0 

/ 

TRUS 1990 

FRACTION 

TTRUSPOOO 

/) 

TRUSP010 

/ / 

TRUSPOP 0 
TRUS? 0 30 

/) 

TR US? 040 


TRUSP050 
TRUSP060 
TRUSP070 
TRUSPOPO 
TRUSP090 
TRUS? 100 


SURROMT INF F T RUSS 

L *************************** *************** 

C FORM TRUSS Fl.FMFNT MATRICFS 

C ************* ****** *********************** 
IMPLICIT RFAI_*B (a-H.0-7) 

COMMON / F M/ I. M ( ft) ,S(A,ft),P(ft,4),ST!M,T 
COMMON /JUNK /FMUU4.4 ) t F ( 4 ) , RHO , TFMP , X 
0 I MFMS T ON FMM! 7ft ) 

F 01 1 1 V A I. F N C F ! S * F MM ) 
no S I=T ,7ft 
5 F MM ( I ) =0. 


TRusPiin 

***************************** 7 rhsP IPO 

TR US? 1 30 

*****************************|RUS?I40 

TR USP 1 50 

T(4) , XM( ft) , EM 1 ( ?4 54 ) TRUSPlftO 

(?)»Y!?),Z!P) , V ! 4 ) *JUN(?3ft) TR USP 170 

TRUSP1R0 
TRUS? 190 
TRUSPPOO 
TRUSPP10 


0 ************************ ******************************************* 
C COMPUTE UNIT STIFFNESS AMT) I.OAO MATRICFS 

c ***************************************** ************************** 
CALL VFCTOR f V , X ! 1 ) , Y f I )*7(1 ),Xl?),Yf?),7!P) ) 
on io i=i,3 
ST! I ) = -V ( n/V!4) 

10 ST! I +3 ) = -S T ! I ) 
no ?oo I. = 1 , ft 
YY = S T ( I. )*F! 1 )*V{ 4 ) 
no ?sn k=l * ^ 

S! K ,1. ) =S T! K ) *YY 
pso S (I. »K ) = S ( K « I. ) 

300 ST! L ) =F! 1 ) *ST! I. ) 


****TRUS???0 
TRUSPP30 
***#Tp HSPP 40 
TR US?? SO 
TRUS?? AP 
TRIJSPP70 
TR!!SP?R0 
TKUSPP90 
TRUS? 300 
TR I ISP 31 0 
TRMSP3P0 
TR USP 330 
T R l ISP 340 
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C a************** ******** ************* ***** ********** ******************** TR US? 350 

( ; GRAVITY AMO THFRMAf. LOAPS TRUS7360 

f ;* ************* ********* *********** ****** ** ******* ********************** TR OS? 370 


FT=-TFMP*Fl 1 >*FI ? \ 

TRUS?3flO 

F=0.5*RHn*V( 4 J 

TRHSP390 

nn 350 i.=i ,4 

TRUSP400 

HHsFMIIUI. ,4)*F1 

TRIJSPAIO 

TIM. )=HH 

TRI IS? 4? n 

nn 350 M= l , 3 

TRUS7430 

P{ M f l_ )=FMIM.( 1. ,M)*F+HH*V( M) 

TRUS7440 

PIM + 3,1. ) = FMIH. (L,M)*F-HH*VIM> 

TRUS7450 

RFTIIRN 

TRUS?4f>0 

FMO 

TRUS?470 
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SURRniITJMF OTRUSSI API.O , ANFW , 1.0 AO , NUMOV ) TRUS?4R0 

f **************************************** *******************************TRUS?490 

f. FIII.LY STRFSSFO nF SIGN FDR TRUSS FI.FHFMTS TRllS?500 

C *********************************************************************** JR US? 51 0 
n T M F M S I flN APl.nt MUMDV > , ANFWl NUMDV > .LPAWNtlMlW) TRUS? 5?0 

rOMMOM/.H INK /.MINI ] 6 I , l. T , LH, L t SR C ?7 ) * IOVAR * 1 F X , FRC , ARF A * X I NFR T , RY Y ♦ TRUS? 530 


1 

1 n7Z.TFNS.Cnpi f JUNK ?*5 ) 

TRUS? 540 


P = SO ( 1 ) 

TRUS? 550 


I F( P.OT .0.0)00 to 100 

TRUS? 560 


Pl=Cnp)*ARFA 

TR US? 5 70 


P? =0 • 5* P l 

TRUS?5R0 


P = -P 

TRUS? 590 


PFY=X1NFRT*RYY 

TRUS? 600 


XI.Y = P/PFY 

TRUS? 610 


R M A X = SOR TI XI. Y) 

TRUS?6?0 


CALI. JOHNS (IFX.P.Pl ,P?.PFY t P ) 

TR US? 630 


IF ( R.GT.RMAX) RMAX=R 

TRUS?640 


PF7=X1MFRT*R77 

TRUS? 650 


XI. 7 = P/ PF 7 

TRUS? 6 60 


R = S0RT(XI.71 

TRUS?670 


IF ( R .OT .RMAX) PM A X =R 

TRUS? 6R0 


CALL JOHNS ( 1 F X , P • P 1 .P?»PF7.R) 

TRUS? 690 


IF ( R.GT.RMAX) RM AX =R 

TRUS? 700 


GO TO ) 1 R 

TRUS? 7 1 0 

ion 

pi =tfns*arfa 

TRUS? 7? 0 


PMAX=P/P1 

TR US? 730 

HR 

aa=rmax*aoloi iovar ) 

TRUS? 7 40 


IFIAA.LT, ANFWf IOVAR ) ) OP TO *0 

TRUS? 750 


AMFW( IOVAR ) = A A 

TRUS? 7 60 


I.PAOI I OVAR ) sr|. 

TP US? 770 

AO 

CONT ?NUF 

TRUS? 7 RO 


RETURN 

TR US? 790 


FMO 

TRUS? ROO 


SURROUTINF JOHNS (I t A , R ,C *D , AA ) 


TRUS? 810 


c*** ******************************************************************** trus?r?o 

C JOHNSON » S PARARHLA USFO FOR RFOFSION UNOFR COMPRESSIVE FORCE TRUS?B30 

C *********************************************************************** TRUS? 840 


on m ( l ,?,3>,i 

1 A A = R- I R-C )*C/0 

IF ( AA .LT.o.nooon on to sn 

A A = A / A A 
RF TURN 
50 A A = 0 . O 
RF TURN 

? a a^ ( a + ifR-r.i*r./ni ) /r 

RF TURN 

* A A= SOR 1 f A**?4 { 4*R*C* I R-C ) /n ) ) 
A A =( AA + A >/?/R 
R F T UR M 
FND 


TRUS? B50 
TR US? R60 
T R I IS? R 70 
TR I IS? PRO 
TRUS?RWO 
TRUS?9<)0 
TRUS? Q 1 0 
TRUS?9?0 
TRUS?930 
TRUS?94() 
TRUS? 950 
TRUS?960 
TRUS?970 
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MlRRnmjNF RFAM(A,MTnT) HFAMOOOO 

£***$**** 4 * 44 * *4 4* ******* 4444444444444**444«****444******44«4*444*44444*HF AMOO 10 

C 7HRFF niMFNSlPNAL RFAM FLFMFNTS BFAM00?0 

£44**444444*44*44444*4*4**4*44** *4**4 4*444# *#****#^***£*4444* *444 $4 4 4 *#BEAMOO 30 
DIMENSION A(MTOT) KFAMOtUfO 

COMMON /Ft PAR / NPAR( 1 4 ) ,NUMNP , MR AND , NFL T YP , N l , N? , N3 * N4 ,N5 , MT T T *NF0BEAM0050 
1 •NHMFL,MMMnv,M] ,M?*M?,Lt *LR*NFOR,Ntt|.nf.K RFAM0060 

COMM ON /.JUNK / *H IM | 1 M »l T *LH *L * SI G( ?7 ) * 1 DVAR . I FX * FRC t ARFA , JUNl { 7 50) RFAM0070 
COMMON /UN T TS/ TR . IW, I P, M , ! ? , I ? , I p , 1 9 , 1 1 0 , M 1 * 1 1 ? HF AMOORO 

N(!MF = NPAR< 7 ) RFAM0090 

K0nF=NpARf5) RFAM0100 

T FI NPAR( 1 ) ,F0.0 ) GO TO 500 RFAM0110 

GO in (1*1,?)* KPOF RFAM0170 

£4444444*4444444444#44444*44*#*4**4444#4444*44444444*444444444444##44444RFAM0130 

C RFAM FLFMFNTS WI1H INSTARfLITY CONSTRAINTS BFAMOlAO 

C KOOF =1 TNFRTIAS ANO MODULI ARF PROPORTIONAL TO ARFA RFAM0150 

C 7 TNFR1IAS AMO MODULI ARF PROPORTIONAL TO ARF A**2 AND BFAM01AQ 

C ARF A**l .5 RFSPFCTIVFI.Y RFAM0170 

C44444444444444444*4444#***4#44444444444444#*4444****44444444444*4444*44RfAM0lR0 


1 MUMMAT=NPAR| 31 
NUMGFnsNP AR 1 4 ) 
NUMFIX=NPAR{ M 
IF ( NIIMF I X* F0« 0 ) NUMFIX=l 
Nf,=N5+MUMNP 
N7 = N/»+NUMCF0 
NR=N7+NUMGF0*9 

nq-np+nhmmat 

M 10 =WQ+NUMMAT *5 
MM=Nin+NUMFIX*l?-MTOT 
IF(MM.GT.0)CALL FPROR(MM) 


BFAM0190 
RFAM0700 
RF AMO? 10 
BFAMn??o 
RFAMO? 30 
RFAMOPAO 
BF AMO? 50 
BFAM0?M> 
RE AMO? 70 
RFAM02R0 
RFAMO? 90 


CALL TF AM ( A<MJ),A(N1 ) ,A(N2> .AIN?) ,A(N4) ,A(Nf>) , A(N7), A(NP)*A(N9>, RFAM0300 
\ AT N10 ) ,Nl»Mnv,NHMNP,NUMGFO,NUMMAT*NUMF! X,KODF *MUME *NPAR ( 6 ) ) BFAM0310 

RF7URN RF AM0??0 

£*4*44*444 4444 *444444 4 44444444 44 4444 44 4 444 4***4# *4 44 44 *444444*4*4* 444444RFAM03 30 

C PROVISION FOR SPECIAL RFAM FLFMFNTS BFAM0340 

£ 4*444444444444444444444444 4444*44444 44 444 4**44*4**4#4**444:4*44444444444RFAM03 50 
? CALL NOFLFMINPAKI u ,K0DF,IW) RFAMO 36 O 

RFTtIRN REAM0370 

500 HR1TF fTW,700R) KOOF RFAM03R0 

no ROO HMsj f M{lMF RFAM0390 

CALL STRSCI A(MJ ) , A ( N 1 ) , MN3 ) ,NFO,MUM0V, LL » LR . I H ,0 ) RFAM0400 

WRTTF (IW,?005) MM, ARFA RFAM0410 

00 POO L-LTtLH RF AM04? 0 

CALL STRSCI A(Ml) t A(Nt),A(N3),NF0,NUMnv,LL,LR.IB*l) BFAM0430 

TFTL.GT.l.T ) WRITE! IW. 2006) RFAMOAAO 

WRTTFI 6.2007) I. *1 SIGH )«1-1«1P> BFAM0450 

GO TO (3*3*4) , KPDF RFAM0460 

£ 4*4*44*44##444444 4444444 4*4444*44 *4444*4* 44* *** *4*44**444 44**44*4*4*4*4 RFAM04 70 

C OFSTGN OF RFAM FLFMFNTS FOR STRFSS AND LOCAL RUCKLING CONSTRAINTS RF AM04R0 

£ 4 * 4444444*44444 4 444 * 4 * 44**44444 *44444 * #3r*44*44#4***4 4444#4**444*44#**#*RFAM0990 
^ CALL DRFAMI ACM1 ) ,A<M?) , AIM3) ,A‘UMOV) RFAMOSOO 

GO TO ROO BF AMOS 10 

£ 44444* *4444*44444444 44444444 * 44 * 4 # 44*444 4444444 44444444444 4*44****4444*RF A M05?0 

C PROVISION FOR RFUFSTGN OF SPECIAL RFAM FLFMFNTS RFAM0530 

C ;4***44***4#444444*44**44444444*444444444*444*4*444*4444*444*444*4**4**4RFAM0540 
4 CONTINUE RFAM0550 

ROO CONTTNHF RFAM0560 

RETURN RF AMOS 70 

?005 FORMAT! 17, F. 13. A) RFAM05H0 

2006 FORMAT! /) RFAMO590 
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7007 FORMAT (1H+,?0X, I *> , 6X , 6F 1 7 . 4 /3?X , 6F 1 7. A J 

700R FORM A T( / /4 1 H ANAL VS IS OF RFAM F I.F MFN T S « CONS TRW CO0F = ,1?// 
110AH FLFMFNT X-SFCT ARFA I.OAf) COMO AXIAI. RX SHF AR RY 
7 AR R 7. TflROMF MX MPMFNT MY MOMFMT M7. /» 

FMO 


RFAM0600 

RFAM0610 

SHFRFAM0670 

BFAM0630 

RFAM0640 


SURpnilTTNF TFAM( UWT*in,X ,Y,Z , K SFC, , PGFO , W T , PM A T , SF T , NUMDV ,NtJMNP f RFAM0650 

1MMMOFO,NMMMA7 ,MHMF J X , K OOF » Ml IM F , Ml IMF X ) RF AM0660 

C ***** * *** **** ********* **** ************* ************ *********** *** ******rfaM 06 70 
r uniform cross-spot ion rfam fi.fmfnts rfamo6«o 

C ***************************************************************** **#***R£AM0690 
IMPLICIT RFAL*P (A-H,n-7) RFAM0700 

RFAt.*4 MWT * X * Y * Z t PGFO ,PMAT,SFT,FRC RFAM0710 

nTMFMSIOM MWT I Nl IMOV ) , I 0 ( NUMNP , 6 > , X (NMMNP ) , Y (NUMNP) ,Z (NUMNP ) , RFAM0770 

1 KSFC( NMMGFO ) , PGFO ( NIIMGFD ,9 ) , PMA T( NUMM AT t 6 ) , SF T < NIJMF I X . 1 ? ) RFAM0730 

7 , WT ( NMMM A T ) BFAM0740 

COMMON/ FM/LM( 74) ,S( 7A,?4,?),P( ?4,4,2), STH?.?**?) tTT<17.4,?) , RF AM07 50 

1 XM ( ?4 ) , F Ml ( 4 R l ) PFAM0740 

COMMON / ,|UNK /FMUl.t ? « 4 ) . T< 3 . 3 ) v LC< 4 ) . Jf. ( 1 2 1 • XX ( 3 > 9 YY « 3 > , ZZ < 3 I *16(3) , RF AM0770 
l T X (?) 9 1 1 ( ? ) • 01. • JUN f 7 J n | RFAM07R0 

COMMON/IJNITS/TR, IW. IP.I1 fl IQ, no, I 1 1 •! 12 RFAM0790 

C ********************************************************************* **RF A MOROO 

C CnMTP.nL INFORMATION RF AMOR 10 

C ******** **** *********************************************************** Rf amor? () 
AM 1=7 RFAM0R30 

NV=7 PEAM0R40 

MS=17 RFAM0R50 

NV»=7 RFAM0860 

|FX=KO0F RF AMOR 70 

N I = 1 0 RFAMORRO 

WRITFl l W , 2 005 ) NIIMF ,KOOF ,MMMMAT,NMMGFO,NIIMFX RFAM0R90 

C ************************* **********************************************rf AM0900 

C MATFRIAI. PROPFRTY CAROS RF AM09 1 O 

C *********************************************************************** bf A M0970 
WRITF ( I W, 2001 ) RFAM0930 

00 ) 0 I=1,NMMMAT RFAM0940 

RFAnt TR, 1 nni ) N^Tf MI , (PMAH N, J) . J=N*>) PFAM0950 

IF I PMA T (M,4).LF.n. ) PM AT IN, 4 )=PMA7 (N, 3 ) RFAM0940 

1 F ( PMATt M,5 ) J.F.O. ) PM ATI N,5 )=0.577*PMAT(N,3) RFAM09 70 

UR 1TFI I W, ?007 ) N,WT(M) 9 IPMATIM, J ) . J = 1 .5 ) RFAM09R0 

10 PMATt N f ? ) = 0.5*PMAT( N, l )/( 1 . 0 +PMAT( N, ?> | RFAM09 90 

c***********************************************************************ppamiooo 

C CFOMFTRIC PROPERTY CAROS RF AM l 0 10 

r************* ************** *************************************#****** rpami 070 


WIMTF { 1 w , ? 003 ) 
on ?n |=i,MUMGFn 

RFAO tIR,1007) M,KSFC( M) ,ARFA ,( PGFO ( N, J ) ,Js| , 9 I 

T F I ARF*. I.F. O. ) ARFA=l.O 

IF { KSFC(M ) .FO.O > KSFC(M) = 1 

|F(KSFC tN ).MF.? ) r;n in is 

PGFO( M,3 UPGFW N.7 ) 

PGFOf N,4) =0. 

PRFOt N , 7 ) = 0 . 

PGFO ( M , P ) =0 . 

PGFO( N,9 )=0. 

15 WR ? T F I 1 W, 7004 J N, X SFC ( N | , APF A , ( PGFO ( N, .1 ) , .1= 1 , 9 ) 
AA=:ARFA**IF X 
A AA=nSOPT I A R F A * A A I 
on 11 .1“ 1 •? 


RFAM 1030 
RFAM 1 040 
rfam 1050 

RFAM1060 
RFAM1070 
RF AM l OHO 
RFAM 1090 
RFAM1 100 
PFAM11 10 
PFAM1 120 
RFAM1 1 30 
RF AMI 140 
RF AMI 1 50 
RFAM1 160 
RF AM 1 170 
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11 p ftp n { w * ,i ) = pgf n ( m * , i ) / a a 
nn i? .i=4,q 

\? PGFP(M,J) = PGFP(N.,| ) /A Aft 
30 CONTI Ml IF 


PF AMI 1 BO 
BFAMUPD 
RFAM1700 
BFAM1710 


(^ *»*##*****#*###«>!.#*)}(*«* 3 ***«*$*« tf#,},******* **$**$***#*****#«*******#*RFAM1??0 

c Ft, FMFNT LOAD MIH.T1PI.1FPS RFAM1730 

R F AO MR. 1006) ( IFMIII. ( ! , .1) . J=] ,A) , 1 = 1 ,3) RFAM1750 

wRnr-Mw,7on^} f ifmhi.i i , j ) * j=i .m , i = 1 ,3 ) rfami7mi 

c FTXFO-FNO FPRCFS RFAMI7R0 

C:*!**!** ** t * $*** **£* ***##*«#** ********** **$*#«***# «***$$#*****;** #*#**#rf AW 1 ? 90 
I F ( Ml IMF X ,FO.O) GO TP 56 REAM1300 

WRJTF 1 1 Vi, 701 0 ) RFAM1310 

DO 66 I = I , NHM F X PFAM1370 

RFAO ( I R * 1 005 ) N » (‘ SF T{ N , J ) , .1-= 1 » 1 7 ) RFAM1330 

56 WRnF(JW,?nil) N, (SFT(N t ,l) f JM ,17) PF AMJ 340 

C F| FMFNT CAROS RFAM1360 

(;***********«* ***«^^*#«#**#«*4t« *#**❖«»!»*****«❖>!'«<»#*#**❖***##«#* «*«*«>«t*i?»##PF AMI 3 7() 


WRT7F (IW,40n0) 

RFAM13R0 

N=l 

RFAM1390- 

RFAOI TR ,3000 ) I F|. , I F , 1 M A T , l GFP , I OV . FRC , I.C , JC , I MC 

RF AMI 400 

I F ( FRC.LF.O. 1 F RC = 1 . 

RFAM14K) 

IF ( INC .F 0,0 ) I NC- l 

RFAM1470 

KK - T MC#( 1FI.-N) 

RFAM1430 

I X ( I 1= I F C l ) -KK 

RF AMI 440 

T X ( 7 ) = IF< 7 ) — KK 

RFAM1450 

tX(?)=IF(?) 

RF AMJ 460 

OP 500 NFI.sNtfFI. 

RFAM 14 70 

on 170 1=1,3 

RFAM14R0 

II = IX( t ) 

RF AM 1490 

XXI I )=X( 1 I I 

RF AMI 600 

YY( I 1 — Y C T I ) 

RFAM1510 

77(I) = Z(H) 

RF AMI 5?0 


(l#**#*#*****-** ***$*«**#* *<<**#««#** ****** AM 1530 

C CPMPII7F FLFMFMT MATRICES RFAM1540 

C*********************************************«*******£*#***************RFAM1550 
RHP=WT ( IMAT ) RFAM1560 

F =PM A T { 1 M A T • 1 ) RF AM 1 5 70 

0 =PMA 7 ( IMAT • 7 ) RFAM15R0 

AAX=PGFP{ IGFn.l ) RFAM1590 

AAY=PGFP(TGFn, ? ) RFAM1600 

AA7 = PGF0MGF0 t 3) RFAM1610 

CALL NFWRM(F,G,RMP,AAX t AAY» AA7.SF1 ,NHMFJ X,NFI.» IW) RFAM1670 

IIUTI in V > =I)WT C in\/ )+m.*RHP*FRC RFAM1630 

C********************* *************** ***********************************RF AMI 640 

C FORM FLFMFMT LPCATIPN MATRIX RFAM1650 

f ;******************* ************ **************************************** ami 660 
T=TX|1) HF AMI 6 70 

.1*1X17) RFAM16P0 

OP 170 Ms\ f 6 RFAM1690 

|M( M ) = 1 0( T,M) PFAM1700 

|,M{ M + T7 ) =0 RF AM 1710 

I. M ( M+ 1 P ) = 0 RFAMJ770 

170 LM(M+M=TO{ J,M) RF AMI 730 

C*********************************#*************************************RFAM1 740 

C TRANSFORM TP MASTFR OFGRF*=S PF FRFFDPM AND RFARRANGF MAFR1C.FS RFAM1750 

C********************* ************** ************************************RF AMI 760 
NO=l? RF AM 1 770 
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CALL $|_M/F <X*Y,Z, in,NHHNP, rx<l I , IX!?I ,Nn.MS) 
Mw-Mn*wn»Nn 

CALL R F Aft AN ( s , S,?A ,?4 f ? t NI>.Nn,NU,NN) 
MM=NS*NDSNU 

CALL R FAR AN! ST, ST. 1 7 , ?4 , ? , NS ,MD . Nil, NM ) 
NN=M0*4*NV 

CALL RFARAMf P, P.?4, 4,?, MO, 4,NV,MN ) 


PFAM17HO 

RFAM1 7qn 
RF AMI ROO 
RFAMIRIO 
RFAM1 R?0 
RFAM1R30 
RFAM1H40 


f Pl.Af.F FLFMFMT INFORMATION PM 1APFS RFAM1R60 

f, $*****4^*«**4*$** *****4*4$ <■***$** ***#**«*$$$ *****$*$$*#$***4$*** ***44*SRF AM 1R 70 
CALL CAlRAN(wniF,I.M, S f P, ST» TT,MII,NV , MS, NO, MW t IDV , IFX *FRC ) BF AM 1 RHO 

WR ITF{ Ifl ) NI ,( PGFP( IGFD 1 1 ) , I =4 ,9 1 , t PMA T I I MA T * I ) * 1 = 3*5) *K SEC I IGFD1 RF AM 1890 
HRI1F nw,40n|) NFI.f ix, JMA1 , IGFn,!PV «FRC«LC.,ir.*NniF BFAM1900 

(^4444 4 44444#4#444444444*44&444&£4f4ft&4 4 44&4444444£44>!t444t44444444*4&4*4444RFAMl9lO 

C r.HFCK Fni? LAS! FLFMFMT BFAM1970 

(^4444*4*44* 4 *4444***44**44*4*4 4* ********* <,**444444444*44444**4* 44 4 44 4444RF AM 1930 


IXI1 ) = IX( 1 i + iwr. 

|X( ? ) = IXt ? » + !Nf. 

R 00 C, PM 1 1 Ml I F 
Ns 1 FI. + 1 

I FtN.LF.NIIMF 1 Gfl TP 100 
RFTI1RM 

100] FORMAT! I 8 . 8 X , 6 F 1 0 . O ) 

TOO? FORMAT! 7 IS ,4F10.0/AF1 0,0) 

1008 FORMAT! T 8 , />F ] 0 . 0/F 1 5 . 0 , 5F l O . 0 ) 

1006 FORMAT ( 4F10.0) 

?00 1 FORMAT!// ?8H MATFR 1 Al. PROPFR T Y CAROS // 

YOUNGS 


poi ssnMs 


MODULUS 


RATIO 


TENSION 


RF A M 194!) 
RF AM 19 50 
PFAM1960 
RF AM ] 970 
RFAM1980 
R F AM 1990 
RF AM? 000 
RF AM?0 1 0 
RF AM? 0?0 
RFAM?0 30 
RF A M? 040 
ALL0WARPFAM?050 
RF AM? 060 
C0MBFAM?070 
RF AM?080 
RF AM? 090 
RF AM? ] 00 


1R3H MATFRIAL SPFCIFir. 

?l. F STRFSSFS / / 

3R3H MUMRFR WF ] GH T 

4PRFSSI0M SHFAK /] 

?00? FORMAT! I*,4X,AF1?,4 ) 

POO* FORMAT!// ?SM GFOMF TR I C PROPFR T Y CARDS// 

166H PROPFRTY X-SFCT X-SFCl / PRnPFRTIFS OF X-SFCTIDN RFAM7110 

?-/ / RF AM? l?0 

366H NUMnFR KODF ARFA X-AXIS Y-AXIS 

4 /> 

?004 FORMAT! I 6 , 4 X * T 5 ,4F 1 ? .4 , ??H MOMENTS OF I NFR T ! A / 

1 ?7X,3!1?.4,?4H SFCT MOf)!M.T FOP PC’ I Ml A/ 

? ?7X ,3E1?,4,?4H SFCT MPflULI FnR POINT R) 

?008 FORMAT ! 3?H]THRFF D I MFN S I OMAL RF A M FLFMFN1S// 

1 3?H NllMpFP OF RF AM FI.EMFNTS = ,18/ 

? ^?H CONSTRUCT ION CODF =,15/ 

3 3?H NUMRFP OF MATFRIALS =,15/ 

4 3?H MUMPER OF GFOMF TP I C PROPFR T I F S= , I 5/ 

5 3?H NUMRFP OF FIXFIl-FMO FORCF SFTS=,15) 

7004 FORMAT!// ?SH FLFMFMT LOAD MULTIPLIERS / ?0X , l H A , 1 4X , 1 HR , 1 4X , 1HC 

1 1 AX , 1 HO , / 6H X-0IR,4F 15.4/ 4H Y-0 I R , 4F 1 5 . 4 / 4H Z -D I R , 4F 1 5 #4/ ) 

7010 FORMAT ( 1H] ,4DH FIXFO FMf) FORCFS IN LOCAL COORDINATES 

1//80H TYPF MODE FORCF X FORCF Y FORCF Z , 

? 35H MPMFNT X MOMFM T Y M0MFN1 l 

7011 FORMAT! 1 H , T 3 ,6X , 1 H 1 , 3X ,6F 1 ? . 3 / 1 H .9 X , 1H.I , 3X , 4F 1 ? . 3 / » 

^000 FORMAT (7l5,F10.0,4fS,l?I 1 • I 3 ) 

4000 FORMAT!// ?3H PROCESSED FI.FMFNT nATA // 

1 1 0 4H FI.FMFMT / NPOF NOS—/ /--FI.FMFNT 10 NOS-/ 

? FIXFf) FMO-FORCF in FNn RFLFASF CODES RAND / 

3 1 0 7H MUMRFR ] J K MAIL GFPMY D VAR 

4 A R C D I ,[ ’^IDTH 

4001 FORMAT! 17, ?X, 315,317, F l?. 4,?X,4!5,SX,4n,5X, 41 1,14] 

FMO 


DFSIGN VAR 


FRAC1 ION 
/) 


Z-AXISPFAM7130 
RF A M? 1 40 
RF AM? 1 50 
RF AM? 140 
RF AM? 1 70 
RF AM? 18 0 
P F AM? I 90 
RF AM? ?00 
RF AM?? 10 
RF AM? ?? 0 
REAM?? 30 
RFAM7740 
REAM?? 50 
RF AM? ?60 
RFAM7770 
) RF A M? ? H 0 
RF AM?? 90 
RF A M? 300 
REAM? 310 
REAM? 3? 0 
HF AMT'S 30 
RF AM? 340 
RFAM7350 
REAM? 360 
RF AM? 3 70 
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SlIRROiniMF MFURM ( F , G, Wl , AA X , A A Y , A A Z , SFT ,NIIMF I X , NFL,IW) RFAM23RO 

C*********** ************* ************ ******** **** ***** ***** ************ *RF AM? 390 

C CAI.CUI.ATF FLFHFN1 MATPICFS PFAM?400 

C ****************************************************** ************* ****rjiam?4 10 


IMPLICIT RFAL*fl (A-H.n-Z) PFAM?4 ?0 

RFAL*4 SFT PFAM?430 

CnHMPM/FM/i.Mt ?4 ) |Sl( ?4 ,?4),S?(?4,?4 > , PI < ?4 , 4 ) , P? ( ?4 ,4 ) , ST l <12 ,?4 ) , PF AM? 440 
1 ST2( 12,24 ),1T1( 17,4) ,TT2t 12,4 ).XM| 24) , SI 12,1 ? I, FM1 <3371 BFAM?450 

COMMON/ JltMK /FMIJL ( 3 , 4 ) , 1 ( 3 , 3 ) ,LC ( 4 ) * JC ( 1 7 ) , XX ( 3 ) , Y Y ( 3 ) « ZZ I 3 ) « 1 E I 3 ) , RFAM7460 
l JXn),ll(4) ,V(4),W(4) V R( 12),JHN{ 170) PFAM?470 

niMFMSIPN SF1 (NUMFTX, t? ) ,FHM(?lflA ) RF AM? 4R0 

FOIIIVALFMCF (S1»FMM) RFAM? 490 

nn *> I = ],?1R4 RFAM? 500 

5 FMM( 1 ) =0 . P F AM? 5 ] 0 

£********************************************************************** £Rp AM? 5? 0 


C FF1RM GLOPAt. TO FOCAL CHORD! N A TF TRANSFORMAT IPM. PFAM7530 

£************************* *********************************************#pp AM? 540 


CALL VFCTnR(ll,XX( 1) ,YY( 1 ) , ZZ 1 1 ) ,X Xf ? ) , YY C ?) , ZZ ( ? ) ) 

RFAM? 5 50 

CALL VFCTOR (V.XXI n ,YYI1),Z7( 1 ),XX(3) ,YY(3),Z7 (3) ) 

P F A M? 5 6 0 

HH=nnT(u,v) 

RFAM? 570 

TFIDAPSIHH*HH-1.0).LT.0.01 ) GO TO 40 

RF AM? 580 

CALL CRnSSUUV.W) 

RFAM? 590 

call CR0ssiw,n,v) 

RFAM? 600 

DO 30 1 = 1 ,3 

RFAM?610 

m,n=n( n 

PF A M? 6? 0 

Tl 2,n=VI 1 ) 

RFAM?630 

Tf?,n=W( T > 

RFAM? 640 


C**************** ************************************* ******************BF AM? 6 50 
C MXFn FNO FPRCFS IN LOCAL CnPRO I NATF S RFAM7660 


C ********************************************************************** *pp AM? 670 


nn 73 w=t .4 PF AM? PRO 

MsLC(N) RFAM? 690 

TFfM.LF.O) GO TP 73 PFAM?700 

no 7? 1 = 1 ,1? RFAM? 710 

7? TT2U,M1 = SFT(M,I) RFAM?7?0 

73 C.nwTINUF RFAM? 730 


C *********************************************************************** RFAM? 740 


C Ff.FMFNT UNIT STIFFNFSS MATRIX IN LOCAL COORD I NATF S S(I,J> BFAM?750 

C* ********************************************************** ************BF AM? 760 


ni_ =n( a > 

7Y=F/im_*m.) 
COMMY=ZY*AAY 
COMMZ=7Y*AA7 
SI 1 ,1 )=F/m. 

S( 7,7 ) = CnMM7*17./nt 
SC 3,3) = COMMY*l?./nL 
Sf4,4)=G*AAX/DL 
S( 5 f S) = COMM Y* 4.*DL 
SI 6,6)- C 0MM7 * 4,*D|. 
SI ? * 6 ) = COMM 7 * 6. 

S I 3,5 ) = -r,OMMY* 6. 
nn 10 ? t = i ,6 
J=f +6 

10 ? si .i,.n=st 1 , 1 ) 

nn io4 i=i,4 
.1=1 + 6 

104 S(J ,,l )=-S (1,1 ) 

SI 5,11 )= SI 5 ,5 ) *0.6 
Sf6,l?)= S I 6 , 6 ) *0. 5 
SI 7,171= SI ? ,6) 


RFAM? 770 
PF AM? 7R0 
RFAM? 790 
PF AM?POO 
RFAM? fl 10 
PF A M? R?0 
BFAM7P30 
PF A M? R40 
RF AM? R50 
HFAM?P60 
RFAM? 8 70 
RF AM?8flO 
8 F AM? H90 
RFAM? 900 
RF AM? 910 
PF AM?9?0 
PF AM? 9 30 
HF A M? 940 
RF AM?950 
PF A M? 960 
RFAM? 9 70 
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S<4, P)=-S(7.M 

RFAM79R0 


S( R * I 7 ) = ~S I 7 , 4 ) 

RFAM7990 


simii= st?,s) 

RFAM3000 


S( S f 9 ) = -S ( 3 ,S) 

RF AM 30 10 


s i o, n )=-s 1 3 f s j 

RFAM3070 


no 104 1 =7 * 1 7 

RFAM3030 


K = T-l 

-RF AM3040 


no 1 04 .1 = 1 , K 

RFAM30S0 

104 

SU , J) = S( ,M ) 

RF A M3 060 

C ;* * ** * ** *** **** * ******** * *** * * * * ******** * **** *** * * * * * ** * $ ** ************* R f AM 30 70 

c 

-MODIFY S AMO T T 7 FOR 7FR0 FNO-FPRCFS 

RFAM30R0 

£************************************************ *****************$***$£RFAM3090 


(N 

II 

C 

c 

a 

RFAM3100 


si=s( i,n 

RFAM3110 


IFI,lf,II).I.F.fi,nR.SI.FO.n.) GO TO 140 

RFAM3170 


no 1 ?s M = 1 , 17 

RFAM3130 

1 ?s 

W(W)=S( T • N ) 

RF A M3 1 4(1 


no 1 ? 4 M = 1 1 4 

RFAM3150 

1?4 

W I M ) = T 1 7 f r *N > 

RFAM3160 


nn 1 3 s m = i ,i 7 

RFAM3170 


C.M=S(M, U /SI 

RFAM31R0 


nn 130 Mai , 1 7 

RF AM 3 190 

] 3n 

S*M .N) a SI M.N)-CM*RCN) 

RFAM3700 


no 13S N=l ,4 

RFAM37 10 

1 

11? (M,M 1=1 T?( M,N)-CM*W(N) 

RFAM3770 

140 

f.OMT I Ml IF 

RFAM3730 

(~ ******************************************** *************************** RF AM3740 

C 

-UNIT STIFFNFSS AND FORC.F RFCOVFRY MATRICFS OUF TO STRFTCHING 

RFAM3750 

f *************************** ********************************************HFAM3?60 


OP 700 1=1,3 

RFAM3770 


no 701 J=l,3 

RFAM37H0 


X=T( 1 , I)*T( 1 ..1) 

RFAM3790 


SHI ,J » = X«SIM) 

RF A M3 300 


Sl( I ,.l+4 ) =X*St 1 » 7 ) 

RFAM3310 


SI ( 1 + 4, ,1 ) = X* S ( 7, 1 ) 

PFAM3370 

701 

S 1 f J+4,J+4)=X*SI 7,7) 

RFAM3330 


STM] « T )»TM ,1 >*SM ,1 > 

RF A M3 340 


X = T( 1 ,1)*S( 1,7) 

RFAM3350 


sun * i +4 > = x 

RF A M3 340 


ST 1 ( 7 ,1 )=X 

RFAM3370 

700 

S 1 1 ( 7 , 1+M = T( 1 .U*S(7,7) 

RFAM33R0 


no 707 l =1 ,7,4 

RF AM'3390 


no ?07 .1=1, 7, 4 

RFAM3400 

70? 

S( T * ,1 ) =0 . 

RFAM3410 


f ***********************************************************************RF AM3470 
c IINTT FORf.F P.Fr.OVFRY MATRIX niir rn RF NO 1 MG AND TWISTING RF AM34 30 


f ;* * * 4 ** ** * * * * * ********** * **** 1(5 *** * *** ** ** ** ****** * ************* * * ** ***** bf A M3 440 


on ISO 1. A =1 . 10,3 
1. R = L A + ? 

|)D 1 SO MAsl ,10,3 
MR=MA-1 

pn ISO I =(_ A 1 1.R 
on 1*0 jm =] ,3 

,t = . 1 M+MR 

y=o. 

nn i*i k = 1 ,3 

|*1 x = X +SU ,K+MB )*T( K ,.IM ) 
ISO S J?i I ,.(|=X 


PFAM3450 
RFAM3440 
RFAM3470 
RF AM34R0 
RFAM3490 
RFAM3S00 
R F AM 3* 10 
HF AM3S70 
RFAM3S30 
RFAM3S40 
RFAM3S50 


C * *********** *********** ********* *** ***************************** ****** *RF A M3 *>40 


C COORD I N A TF TRANSFORMATION OF 1IM|T BFNOM'G AMO TWISTING STIFFNFSS RFAM3S70 
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C *$$**$**«*** *«*$** £#«**<:$$* $***$$$* ** ***$ + #****.* *$***** a************* **RFAM3580 


nn 160 t a=i , 10,3 

RFAM3590 

1. fl = L A - 1 

RFAM3600 

nn 160 MA=1,10,3 

RFAM3610 

M p = M A + ? 

RFAM36P0 

nn 160 I1. = 1,3 

RFAM3630 

J = U+I.P 

RFAM3640 

nn 160 j=ma,mr 

PRAM 36 50 

X=0. 

RFAM3660 

nn 161 k = i ,3 

RFAM3670 

X = X + T f K * I L )*ST?(K + LR,.I) 

RF AM36R0 

s?( i ,.n = x 

RFAM‘3690 


1M 
160 

TRANSFORMATION (IF FLFMFNT LOAD VFCTPR ni)F TO FIXED FND FORCES RFAM3710 

7 n ni.nRAL COOROINATFS RFAM37?0 


OP 166 LA =1,1 0,3 

RFAM3740 

l 

< 

_j 

ii 

<X 

RFAM3750 

nn 166 it = 1 ,3 

RFAM3760 

! = TL+I.R 

BF AM 3 7 70 

on 166 M= 1,4 

RFAM37BO 

X=0. 

RFAM37S0 

nn 16 ? k= i , 3 

RFAM3R00 

X = X-T( K , II. ) * T T?( K + I.R.N} 

RFAM3R10 

P?( I,M|*X 

RFAM3R?0 


l 6? 

166 

C #$ >> ****** S $r$ ifcfcfcjfcSS******* * ******** 4s $ ^ + 5!= ** V * $= $**$£ + ***:(£*#£=(:*$* **R F A M3 R 30 

C FLFMFNT mass MATRIX RFAM3R40 

X =VT*ni./?. RFAM3RM) 

nn 1 RD M = 1 ,3 RFAM3R7D 

XM(M)=X RFAM3RR0 

XMf M+3 Isfl, RFAM3R90 

XM(M+Q)=n. PFAM3900 

1R0 XM(H + M = X RFAM3910 

f ;* *£* ** $ * >Jcfc$# S* * * * $ #*£:*** * *# * $4 $ *< £$* * **$#$$*$ *#£*#**#*$# * * Jf **#*=((« # RF A M39? 0 

C CDMPIITF GRAVITY I.PADIMG ( POINT LOADS ONLY ) RFAM3930 

£$.*;**** * *r ^ * Jflc afr <r <? **** *** fc*** #* ** $ *#*«•*<=*«***£$**$ * £**$$****: $*$*****#*#$*$* RFAM39 4 () 
nn 190 I =] , 3 RFAM3950 

DO 190 .1=1,4 RFAM39M) 

PUT ,.I) = P1U * ,1 ) +FM( |) ( I , .1 ) *XM( I ) RFAM397U 

190 P] ( | + 6,J)=PK 1+6, JI + FMIH. M , JJ^XMI I+ft) RFAM39R0 

RFT1PRM RF AM 3 9 90 

40 WR T TF ( 1 W, 400? ) NFL RFAM4000 

STnP RFAM40I0 

400? FORMAT (9H0RFAM NO ,16, ?6H K NOnF ON RF AM X-AXIS RFAM40?0 

. ?6H FXFf.DTTOM TFRMINATFO ) RFAM4030 

FND RFAM4040 



SMRRnilTIMF SLAVF { X , Y • 7 * I n ,M||MNP . N 1 , N J • NIT * N S ) RFAM4050 

f************ *********************************************************** ftp A M4060 
C PFRFHRMS SI.AVF ...MASTFR D I S P \. ACF MFN T TR ANSFPRMA T I FIN ftp AM4070 

r i fhr nppfs cpnmfci F n in pfam flfmfnts pmi.yi bfam40ro 

C ********************************************************* **#***********BFAM4n90 
TMPLirn R F A t. * 8 (A-H,fl-Z) BFAM4100 

RFAL*4 X , Y ? 7 RFAMAllO 

CnMMnN/FM/I.Hf ?&),S(?4 f P4 v ?) ,PI 19?),S1 I17*?4,?) ,71 (9f.) ,XH(?4) f RFAM4170 

1 FM U 4R1 ) RFAM4130 

P I MFM$ I PN X( MIIMMP) ,Y(MHMMP ) ,Z (NIIMNP) , I f) ( NIIMNP v A ) RFAM4140 

0 **************** *************** **************************** ************rf am 4 1 50 

C nFTFPMJNF RFPI 1 1 RFD TRANSLA1IPM PFOR F F S OF FPFFOPM RFAM41A0 

C ******************************************************************* ****flpAM41 70 
nn 84 N F = 1 f l ? « A HFAM41B0 

Mnn=M! BFAM4190 

TF (NF.F0.71 MPn=M.I BFAM4700 


80 


OP 30 K= 1 *3 
T=K+NF-1 

IF ( I.M( I ) .OF ,n» f,n TP 30 

M = - L M f J ) 

l_M( I ) = J 0 ( M f K J 

Ml =wn+i 

M?=wn+? 

T F ( K-7 ) 38,48,88 
01 = -( Y( NPO ) — Y ( M J ) 

0?= 7(Nnn)-7!M> 

I.M(Nl ) = J0 ( m,a> 

I. M ( M? )sfn(M,S) 

r,n tp 8n 

ni=-( 7 I MPP ) -7 ( M ) ) 

n? = x( Mfin ) — x( m ) 

|_ M ( M 1 )= IP(M,4 ) 

I.Ml M? ) = I n ( M ,A ) 

OP TP 80 

m = -( X( NPn > -X( M ) ) 

P7 = Y ( MPP I — Y C M ) 

».M( Ml )=IP( M , 8 ) 

| M( N? ) = in ( M , 4 ) 

CPMriMUF 


RFAM4P10 
RFAM4770 
RFAM4730 
RF A M4740 
RFAM4750 
RFAM47A0 
RFAM4770 
RFAM4780 
RFAM4790 
BFAM4300 
RFAM4310 
RFAM4370 
RFAM4330 
RFAM4340 
RFAM4350 
BFAM4360 
RFAM4370 
RFAM4380 
PFAM4390 
BFAM4400 
RFAM4410 
PFAM4470 
RFAM4430 


f***** ************************************************************** **** bf a M4440 

C TRAMSFPRMAT IPN, , .ARRAYS I NCR F ASF JN SIZF BFAM4450 

0 ******** *************** *********** *************************************bfaM44A0 



nn 80 u=i ,7 

BFAM4470 


PP AO n= i ,Mn 

BF A M4480 


S( Ml ,TIf 1,1 > sr SI ! . 1 I , !J )*m 

BFAM4490 


S!N?*M.T,i)=S( !.II.KM*P 7 

BFAM4500 


M 1! ,NJ , 1 .1 ) =S( M 1 , H , l J ) 

RFAM4810 

AO 

8(11 ,N?, !,1» = S(N?,T 1, Ml 

BF A M48? () 


s( mi ,Ni,m = st i .1 .i,n*ni*ni 

HFAM4530 


S(M1 ,N7,1J} = 5( I .1* TJ >*01*07 

BFAM4840 


S( M7 , Ml , 1.1 )«S(N) *M ? , I .) ) 

BFAM4550 


S(M? f N?,T,i)=S( I , 1 • f .1 1*07*07 

BFAM4860 


nn 70 n=i ,ms 

HFAM4S70 


Sit IT,N] • 1 J ) = 8 1 ( lI*I,KD*ni 

BFAM4580 

70 

f; t ( 1 1 ,n?,i.ii=s 7( ii»M.u*n7 

HFAM4890 

80 

r.PMl I Ml IF 

BFAM4600 


XM( Ml. ) = X M ( T ) *01 *01 

RFAM4AI0 


xm(M7)=xm( i )*n?*n? 

BFAM4A70 


MR = MO + 7 

RFAM4A30 

?n 

r.PMi tmuf 

HFAM4A40 
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^ ***************************************************************** ******BFAM44 50 

C SFT RPT AT TPMS RFAM4660 

C ********************************************************* **************RfAM44 70 


OP 54 ,t=l ,3 

RFAM4frP() 

K = WF + .I + ? 

RFAM4690 

TFtl.M(K>.GF.01 GP TP 54 

RFAM4700 

M=-LM{ K) 

RFAH4710 

l_M(K) = jn(M f J + T) 

RFAM4770 

56 CPNTINUF 

RFAM4730 

R F TURN 

RFAM4740 

FNO 

RFAM4750 




StIPRPiniWF CRR1 1 A0,A1 » A? ♦ A 3 * 7 ) 

RFAH4760 

C* ********************************** ******* 

************************* ****^P -jq 

C- 

— 

-CPMPinFS THF LARGFST R F AL RPP1 7 OF 

RFAM47R0 

c 


An+Al*Z+A?*7**2+AT*7**T=Q 

RFAM4790 

C ********************************************************* ***** ******* **RF a M4P00 



A0=A07 AT 

RFAM4R10 



A T = A 1 /A? 

RFAM4R70 



A? = A ? / AT 

RFAM4P30 



0=A1/T.0-A?**?/9.0 

PFAM4R40 



R=( A14A7-T.04AO|/4.0-A?44T/77.0 

RFAM4R50 



p = 0**^+R**p 

RFAM4RF0 



IF ( P.LT.O.O) GP TP 700 

RFAM4R70 



P=SORT <P) 

PFAM4RR0 



RP=R+P 

RFAM4R90 



IF! RP. 1,7.0. > Gn TP 50 

PFAM4900 



S] =rp**O.TTTTTTT 

RFAM4910 



GP TP FO 

RFAM4970 


50 

SI =-< -RP)**0.T3TTTTT 

RFAM4930 


40 

R P=R-P 

RFAM4940 



IFIRP.LT.O.) GP TP 70 

RFAH4950 



S?=Rp**0. 333T333 

RFAM4960 



GP TP PO 

RFAM4970 


70 

5?=-(-RP)**n.3333TT3 

PFAM49R0 


«0 

Z = Sl + S7-A?/3.,0 

RF AM4990 



RFTHRN 

RFAM5D00 


?no 

P^-P 

RFAM5010 



P=50RT( P) 

REAM507P 



SRAR=SPRT( R**?+p**?> 

RF AH50T0 



cps3=r/srar 

RFAM5040 



S?MT=P/5RAR 

PFAM5050 



U=ATAN( MN3/CPS3) 

PFAM5040 



w=g/T.o 

RFAM5070 



or.n.S(W) 

RFAM50RO 



S=SIM(WJ 

RFAM5090 



IF (S.LT.n.l s=-s 

RF A M5 1 00 



SRAR=:SBAR**O.TTTTTTT 

PFAM5110 



7=?.0*SRAR*r-A?/T.n 

RFAM5170 



R=-SRAR*C-A?/T.0+1 .7T705 1*SRAR^S 

RFAM51T0 



IF {R.GT.7I 7 = R 

RF A MS 1.40 



RFTIJRN 

RFAM5150 



FMn 

RFAM5J60 
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SMRRnilTTWF flRF AM { APL 11 , AMF'W , LP AD , Ml IMP V ) RFAMS170 

F *******«**£««****£***$*£**:*******::=#$***£***£$*:£***#*:*******£***$**** + *$ RF A MS 1R0 

C PFSTGM OF RF AM FI.FMFNTS RF AMS 190 

C £ # * * * $ * * *# *: :£** * **** # 4 Hr # afr ** * * * * £ * * * * * *# £ tf * * * *** * * £ * * #* £ * £ ## $ * * HF A MS 200 

COMMON /.II INK /.II INf 1M ,LT,IH,L,SIG( ?7), IflVAR, I F X , FRC , AR F A , X I NER T , RF AMS? 10 

1 7FF( 6) f IFNSt COMP, SHF AR ,KSFC , SFCMOD 1 1 ? I , JIIN1 ( ??7 ) RFAMS??0 

niMFMSTOM APLnt NIIMnv) , ANFWf NIJKOV ) * LOAO( NIIMIJV ) .RF AMS? 30 

OFI. 7A = 0. 001 RF A MS? AO 

KMAX=6 RFAMS?50 

RMAX=0. RFAMS740 

A A =ARF A RF AMS? 70 

TFIIFX.FO.?) AA=SO«Tf AA**3I RFAMS7R0 

if( ksfc.ot.i) on to ?n rfams?9o 

r, SFT IIP SFCTION MODULUS ARRAY SFCMODfl ) FOR A|.l. RF AMS3 1 0 

C FOUR STRFSS POINTS OF X-SFCTIPM AT MOOF I RFAMS370 

C£**fr£*fc****** ************£*£#**********£****$#*$$*** #**$’t:#$ + ***********BFAMS3 3D 
no )0 1=1,3 RF AMS 3 AO 

SFCMOnf T ) = 7FF( I1*AA RF AM S3 SO 

SFCMOOI I + 3)=SFCMpnU ) RF A MS 34D 

SFC-MOni ] +fi | =-7FF( I +3 ) * A A Rf AM S3 70 

10 SFC MOO f T + 9 ) = SFCMOD I J + 4 ) PFAMS3R0 

SFCMOni ? )=-.SFCMfir>( ? ) RFAMS390 

SFCMOM ] 1 ) =- SFCMPH ( 1 1 | BFAMS40D 

on TO ?s RFAMSA10 

************ £***£******#******£❖$*$*****$##*$**#***#****$$*$*<:****$ *#RF AMS 4? 0 

C SFT IIP SFCMnnt n for 7-SFCTIPN OR TIIRF RFAMSA30 

Q * * lit * ** * * ** * ****** * ** *** ******* * * ** * * ********** * * ** * * * * ******* * **** * * * ** RF A M S 440 


70 on is r=T ,3 

SFCMOM I ) =7FF ( I )*AA 
SFc.MnrM I +3 ) =-SFC.Mnn( i j 
SFCMOM | + M=7FFU + 3I*AA 
IS SFCMOm I +9 )=-SFCMPn( I +M 
SFCMOn(?)=-SFCMnnt ?) 
SFC.MOO( S )=-SFCMOn( S ) 

IF fKSFC.MF.3J 00 TP ?5 
SFCMonf n jso. 

SFCMOM 1 1 ) =0 , 


RFAM5450 
RFAM5440 
PF6MS470 
RFAMSARO 
RFAMS490 
RFAMSSOO 
RFAMSS10 
RF A MS S? 0 
RF AMSS 30 
RFAM5S40 


c *********** *************************************************** *********RFAM5S SO 

C OBTAIN AXIAL FPRCF X AMR MflMFNTS XX,YY,ZZ, RFAMSS60 

C FIRST FDR NOOF U THFM FDR NPPF J RFAMSS70 

£************** ******* ********** ********* ********************** ********* P FA MS SRO 
?S X=S I Of 7 ) RFAMSS90 

00 30 N= 1 ,7,4 RFAMS600 

IF (M.B0.1I 00 Tfl ?6 PFAMS610 

on ?7 1=1,1? RFAMS670 

? 7 SFCMonf 1 )=-SFCMnnf I ) RFAMS630 

? 4 XX = S I 0 ( N+ 3 ) RF AMS 440 

YY = S I Of M +4 ) RFAMS450 

77 = S I Of N+S ) RF A MS 460 

F *************** ********* **** ******** *********************************** P FAMS670 

C MODIFY MOMFMTS for TURF RFAMS6R0 

f******* ********************************************************** ****** P F AM S6 90 
TF (KSFC.NF.3) 00 TO *0 RF AMS 700 

YY=SORT( YY*YY+77*77) RFAMS7 1 0 

77 = 0; RF AMS 7? 0 

4n S A X I A L = V / A RF A R F AMS 7 30 

f **************** **** 1 !:***# ******************** ******* ***«« )|r ** Jjt ijt «*-«#* R F AMS 740 

C COM PI I TF STRFSSFS AT FOUR STRFSS POINTS PN X-SFCTION RFAMS750 
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nn 3 5 1=1,10,3 
sshfar=o. 

IF (SFCMflO! n.MF.O.) SSHFAR=XX/SFCMPnm 

SPFwn=o. 

fF ( SFCMnof I + n .MF.O. | SBFNn^YY/SFCMnm 1 + 1 ) 

IF t SFCMnnn + ? ) .NF.O. ) SRFNP= SRFNn+7 ? /sfcmpdu + ? ) 
STPTrFAX 1AI.+.SRFM0 
SST AR = T FNS 

IF ( STPT.I.T.O.) $STAR=-CPMP 


RFAMS770 

RFAM57R0 

HFAH5790 

RFAM5R00 

rfamsrio 

RF AMSR 20 
RFAM5R30 
bfamfb^o 
RFAM5R50 


C APPLY RFOFSIGN FOII AT I HNS RFAM5R70 

(^* 4 *J>:»* 4 r**^##***«#^«^*#*#*^**s>*i}t«^**^ jjt ****#!> «**!#;*)(;* *#4 i#is)(RF A M 5 RR 0 

IFIIFX.FO.?) GO T f 1 Rl REAMSRQO 

P=SORT U S TOT /SSTAR 1**2+ f SSHFAP/SHFAR )#*? ) RFAM5900 

GO tn R? RFAMS910 

Rl JTFS7=1 RFAM5920 

IFST={ SSHF AR /SHF AR )**?-? ,0*ARS{ S AX I AL* SRFMD ) /SSTAR**2 BFAM5930 

C ;**$*«*£«****$£***£* fr****;* >!?<«** Jii##*::^****#*^**** 

C CHFC.K IF SHF AR STRF.SS OOMJNATFS RFAM5950 

f ;«(«*««***«***«**#***«*****«*«:** 4 *<=«* «****«#»«*«* ^ **«***«#**# «Jf**Sfc**«#t: 3 }««RF A MS 9 R 0 



IF ( TFST.GT.n.) I TF ST = ? 

RFAMS970 


KPMHT=0 

RFAM59RO 


RR*l * 

RF6MF990 


R=n. 

RFAM600Q 


C=-SAXIAI./SSTAR 

RFAM6010 

RF 

GP TP 1 I , 2 ) » I TFS7 

RFAM6020 

1 

AAs{ SSHFAR/5HFAR/PR**3)**2 

RFAM6030 


IF (AA.GT.l.) AAaO. 

RFAM6040 


ASSORT! 1 ,0- A A ) 

RFAM6O50 


P=~SRFNO/SSTAR 

RFAM6060 


go rn 70 

PFAM6070 

2 

A*t . . 

RFAM60R0 


n=-I ISRFWD/S.STAR ) $#? + { SSHFAR/SHFAR )**2+2.D*SAXl Al*SRFND/| SSTAR**?*BFAM6090 
1S0PTIRRM) RFAM6100 

70 CAIJ. CRRTI P,C,R,A,R) REAM6110 

C CHFCK FOR CPNVFRGFNCF PFAM6U0 

tt***-*#*****#** #**##*#** s*#***#** #***#*#*#***##&#####*###*******#*t HP Af 4 t> 140 
IF t R.LT.O.OPOOOI ) GO TO RO RFAM61 50 

OR = ARS »(R-RR ) /R) RF AM6 160 

IF (nR.LT.nFLTA.nR.KnilMT.Fn.KMAX) r,n TO RO RFAM6170 

KPMMT = KPMfmi PF AM61R0 

RRaR PFAM6190 

GO TO R5 RFAM6200 

RO IF (TTFST.FO.I) R =R$R BFAM6210 

R ? IF fR.GT.RMAX) RM A X = R RFAM6220 

35 COMTINUF RFAM6230 

*0 C. OM 7 1 Ml I F RF AM6240 

F> «**«*«**#«****«*. It «<,«*** ***##**«*❖#** *R CAM 62 50 

C RFCPRO NFW OFSIGN VAR I ARI.F AMO f.ORRF SPOWO [MG LOAO COMOITIOH RFAM6260 

£*********************************% #****.**%if*#***#*ZZ#**#*%##***r***#*il‘**\i,Frit4(,? 70 
AAaRMAX«APLOr IOVAR J RFAM62R0 

|F( AA.LT .AMFM( IDVAR ) ) GP TP 60 PFAM6290 

AMFW( TOVAR )=AA RFAM6300 

LPAOI lOV AR ) =L RFAM6310. 

60 CPMTTWOF RFAM6320 

RFJiirm H F 30 

FMO RFAM6?60 


TS'b 



SIIRROMTINF PLAMFI A.M70T ) PL 

f ****** **** ******* ****** ******* ******* ***** ******************* **R| 

C PI. ANF STRFSS FLFMFNTS PL 

f *** ******** ************** **** ************* ***************************** P( 

n | MFMS I flM A( MTPT ) .STRI.ARt R) PI. 

COMMON /FI.PAR/ MPAR ( |A ) , NIIMMP , MRANO , MFl. T YP , N l . M? , M3 • N4 , N5 , Ml 17,NEQPI 
1 v MIIMFL«NIJMnV ,M1 ,U. f I.H.NFCIP'MHLnCK PL 

CflMHnM/FM/NIUMW.NS.Mn ,FMl(50ft?l PI 

CnMMnM/.|IINK/.lllM( IM •I.TtLHfL*SM 70USIM 7) , IOV, I E X , FRC t AR F A T X I MFR T , PL 
1 OF S IMF (fcO) ..HIM! ( 1*9 1 PI 

CnMMnN/ljM! TW IR « !Vf*!P«! 1 «!?f 1 3«?R» l*»« I m v I n • 1 1? PL 

DATA S7PLAR/?HCFM, ,3HJ-K ,^HI-J,3HK-|./ PI 

MHMF=WPAR(?) PL 

K nOF = Wp AR I 5 ) PI 

!F( mparm ) .FO.njpn Tn *>oo PL 

MAsNR + MIMMP PI 

Ml IMM A T =N PA R ( 3 ) PL 

M|IMir, = MPAR(4) PI 

go m r i ,?,3 ) t KfinF pl 

f***** *** ****** ***** *# ** ** * £ ** *********** ********* ********************** p| 

C 1 IN in I RFC T IPN ALLY ST TFFFNFD P A NFL PL 

f***************************** ****************************************** p| 

1 N| IMGFn=NPAR( 7) PL 

M7 = Nft + NIIMMA7 PL 

Wp = M7+MMMMAT PL 

N9=NP + NtlMGFn*5 PI. 

M10 = M9+NMMMAT*MIIM TC*H PI. 

MM = N10-M7nT PI 

I F ( MM .GT .0 ) CAI.I. FRROR(MM) pl_ 

f. AI.L PI.NAX1 ( A (Ml ) « A(N1 ) ,A(N?) v A(N3) , A IN4) «A(N5) •AINA) « A(N7) *A(NR )«PI 
) A( N9 ) ,MIIMOV , NIIMMP ,M| IM M A T , Nl IM TC , K OOF , NIJMF * NUMGE P I PI. 

RFTUPM PI 

G***********************************************************************PL 

( : isnTRnprr. planf mfmrranf pi 

C***** ****************************************************************** PL 
? M7 = MA+NMHMAT PI 

NR=N7+NI!MM AT Pl. 

NO = Mn + MUMMAT*N|}MTC*7 PL 

MM=M9-MTnT PL 

TFIMM.GT.ni CALI. FRRRRIMMJ PI 

CALL PI.MAX7* A(M1 ) ,A(M1 > t A( M? I , A{ N3 ) , A ( N4 » , A I N5 ) * A ( NM ,A(N71 ,A(NR) ,pl. 
1 Ml I MOV « NIIMMP , MMMMA T * MUM 1 C * KPOF . NIIMF ) PI 

RFTIIRM PL 

f;************ ****************************************************** *#***P| 

c PROVISION FOR SPFCIAL MFMHRANF FI.FMFMT PL 

(^ *********************************************************************** PI 


3 call NPFI.PM (MPARMNKPPFf IW) 

RFTIIRM 

son vtRTTF ( TU,?onn) kpdf 
nn POO MM = 1. Ml IMF 

CALL STRSCt A I MI ) , At AM ) ,A( M3 ) .MFO . MIIMOV , LI. 1 1. R . I«.0) 
U'RITF Mw.POns) MM.ARFA 
TF(MS.Fn.i) (;ri to roo 
nn 7nn l=I.T.i.h 

CALI- STRSCI A( Ml ) , A(M| ) f A(N3) ,MFtl . Ml IMRV • I.L • L B . IP, 1 I 
IFU.GT.M) UP ] 1 F f T W , ?00 7 > 

T t =n 

nn *nn kk = i ,ms, 3 
IF(KK.GT.l) NR [7F( ?H,?O07 ) 
nn 370 


Awnnoo 

ANOOIO 

AN00?0 

AN0030 

AM0040 

AMon^n 

ANOOftO 

AM0070 

ANOORO 

AM0090 

ANOinn 

ANOl 10 
AMO 17(1 
AM0130 
ANOl 40 
ANOl 50 
ANMfiO 
ANOl 70 
A MO 1 BO 
A N 0 1 9 0 
AMO? 00 
AMO? 10 
AMO??n 
A NO? ?0 

AN0?4() 
ANO? 50 
A NO? f>0 
ANO? 70 
ANO? RO 
AN0?90 
ANO 300 
AN0310 
AN03?0 
AN0330 
ANO340 
AM0350 
AN03M) 
AN0370 
AN03R0 
A MO 39 0 
AN0400 
AN0410 
amoa?o 

AN0430 
ano 44 o 
AN0450 
AN0440 
A NO 470 
A MO 4 RO 
A MO 490 
AM0500 
AM0510 
AM05? 0 
ANO 5 30 
AM0540 
AM0550 
AM0560 
AMO570 
A MO 5 HO 
A MO 590 
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*?n 

SIGt !>=SG( KK-l + n 


PI. ANOB00 


n=n+i 


PI A N 0 6 1 0 


Mp = 3 


PI. A NOB 2 0 


TFUT.PT. 1 ) GO TO 5 30 


PI ANOB30 


zr 

^5 

ii 


PI. AN0B40 


AMpsOFS IMF ( 1 ) 


PI AN0B5O 


I Ft ANG.NF.O. \ pfl TO B40 


PL A NOB BO 


on *>Rp i = i,3 


PI AN0670 

S50 

S!P( 1+3 1 =S 1 G( I ) 


PI. amobbo 


PP TO *30 


PI AN0B9O 

B4r> 

AWG=AMp/S7.?057795 


PL A NO 7 00 


S 1 - S I N < AMp ) 


PI AN0710 


cn=cnsi ang) 


PL A NO 7? 0 


sc=si*cn 


PI AN0730 


S I ~S l*SI 


PL AN0740 


CP=r.n*r,n 


PI. AM0750 


Xl=STP( 1 )*Cn+S!G( ?>*SI 


PL A MO 7 BO 


x?=?.o*siGm*sc 


PI AN0770 


SIP( 4|=X1+X? 


PL A MO 7 BO 


SIPU)=X1-X? 


PI. AN0790 


SIG( B) = ! SIP( ?)-SIPtl U*SC+SIG! 3)*tr.n-Sl ) 


PL A NO BOO 

F30 

PO TO ( 4 * 5 » B ) » KPOF 


PI AMOR 10 

C3$**33***3$$*3*#4#***$******«**Ji:**»***$3**$3*#****«*3**#******:i:*$**:*>|i54t#*PL AN0B70 

c 

-OFSIGN PF STIFFFNFO MFMRRANF FI.FMFM1 


PI ANOR30 


4 

TFI IT.PT, 1 } pn TP BOO 


PL AM0B50 


CALL 0PJ.AN1 ( A( Ml ) , A! M2) , A( M3) *NIIMOV ) 


PL amobbo 


PP !0 BOO 


PI. A MOB 70 

C ************* 3# * * ** ******** ****** ****** ft ************ *********** *****pj_ a^qr BO 

c 

-OF SIGN PF ISP TROPIC MFMRRANF F L FMFN 7 


PI AN0R90 

f] ;********* ************* ******* ** ******* ******* 4! * ***** ******************* p)_ AM0900 

s 

CALL OPI.AN?! A ( M 1 ) , A f M? ) ,A(M3) ,MHMOV ) 


PI AM0910 


PO JO BOO 


PL AN09?0 

C A ************************ ***** ************************ ^ »jr 5* ************ **p( ANOQ30 

C 

■PROVISION FOR OFSIGN OF SPFCIAI. MFMRRANF 

FLFMFNT 

PL AN0940 

£************ ****************************** ***************************** p( AN0950 

A 

COMTTNDF 


PL ANQ9B0 

BOO 

WRT1F UW,?009) 1. « S T R 1. A R (J 1 ) * ISIGII ) • I = 1 

* NP ) 

P| AN0970 

700 

CONT INI IF 


PI. AMO9B0 

ROO 

CONTI Ml 1 F 


PI AM0990 


C $***#*#*$*#$$***>}, ***** *«£***$*$**«****$ **$ *$ * *#**$****** *£ 3 *$!# #*$# #4 3 $$$^ AN 1000 


rfthrn 

200S FORMAT! 1 X t fS ,F14.4) 

?00P FORMAT I //45H ANALYSIS OF MFMRRANF FI.FMPN1S, COM SIR N f.nnF = ,Il?// 

T 1 1 7H SHFFT IJ'AO / MFMRRANF FPRCFS IA 

?lpc al cporos — //— mfmrranf forcfs in matfriai. chords-/ / 


311 7 H FI.FMFNT 
4 WXY 


1 HTCKMFSS 

Nil 


r.f’Mn 


L nr. AT 1 ON 
N?? 


N X X 
Ml? 


NYY 


/) 


?00Q FORMAT! 1 H+ , ?flX , |«5 ,BX , A3 , 4X ,BF13.4 ) 
?nn7 FORMAT!/) 

FM0 


P) ANIOin 
PI. AN 10? 0 
PI AM 1030 
PL AN] 040 
PI AM] 050 
PI. AN] OM) 
PI AN1070 
PI. AMI OHO 
PI AN] 040 
PI. AM 11 00 
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SMRRmniMF FI.AVMRFTA) PIANM10 

0*$*****4*$«*£fcfcft$*&*s!t# & PL AM IIP 0 

C S7PFSS /S 7P A f N KF|_A7|ON MA1PTX PIANM30 

f 43 #$£$£«#$** 4$4*$3$««&*$$:!:$#*’C:p!_ANl 1 AO 

IMPLICIT RFAI.*ft IA-H.n-7) Pt AM115H 

CnMMflN/.inNK / IF t A) , IX (4) r FMI)l.( A ,5) *0( 3,3 1 ,XX(4> ,YY(4) ,7.Z t 4) ,TMP{4) * PLANUM) 
J At.P(?) v TlI(?) v PKF5.StRFF7«MS«.iMN) ff T f 3 , 3 > , nn f .3 , 3 ) , JUN f 1 48 > PI ANllVO 

IF ( of ta P Fn,o,n i (;n jn 5no pi.aniiro 

AMfiaRFl A/57.? f >57795 PI ANirm 

SS=nSTN( AMR) PL AN17 00 

r.n=nr.ns (anoi pi ani71o 

r.?=CO*CO PI.AN17 70 

S?=SS*SS PI AN1730 

SC=SS*CO PI.AN1740 

f444**4 4*4 *4 4 *4 4*44444*4 *444*4 *4**4* 4 4 **44 4*44*44444$ 4444444*4444444*444 p| AN IP 5(1 
C SFT n FOR siun >=n*sir,( G) plani?*o 

£*4444444**4 4**44444444* 4 44444 44 444 4 4*444444 444444444444 4444444444444444 p| AM 17 70 



tm «n=r.7 

PL AM IP 80 


1 f 1 ,?)=S? 

PI AN1740 


t( i ,3 )=? ,*sc 

PL AM 1300 


Tf?,U = S7 

PI AMI 310 


T( 7,7 )=C? 

PL AN1370 


1 ( 7,3 1=-P.*SC 

PI AM 1330 


T( 3, i j = -sr. 

PL AM13AO 


7 f ? » ? 1 = SC 

PL AMI 350 


T( 3,3 ) =C 7-S 7 

PL AN 1 3*0 


no 3 op 1=1,? 

PI AN 13 70 


nn 300 ,i = i ,3 

PL AM 13 80 


SUM =0* 

PI AMI 390 


nn pro m=i ,3 

PL AN 14 Of) 

?R0 

SMM = SIIM + 7 IM, I )*0(M ,,| ) 

PI AM 1410 

r on 

nn( t , j > = sum 

PL AM 1470 


nn rso 1 = 1,3 

PI AM 1430 


nn 3 so j = i ,3 

PLAM1440 


SUM=n. 

Pt AMI 450 


nn 33f> m = i ,3 

PL A Ml 4*0 

^o 

.SMM = SMM + nnU ,M)«7|M, J) 

PI AN 1470 


ni i ,.i )=siim 

PL AM 14 HO 


ni ,t, i ) = shm 

PI AN 1 490 


A 1 = A)_ P( 1 ) 

PL AN1500 


A ?-s A1. P ( 7 ) 

PI AMI 510 


Al_ P( 1 )=C?*Al+S?*A? 

PL AMI 57 0 


AI.P(P 1 = S74A1+C?*A7 

PI. AMI 530 


AL Pt 3 )=? .04SC*( A 1 -Ap ) 

PL AMI 540 

son 

CAI.L PPM MV MM 

PI AM 1 550 


nn *70 1=1 ,3 

PL AMI 5*0 


mu 1 = 0 . 

PI AMI 570 


nn *7n m=i ,3 

PL AMI 5 80 

*7n 

771 (11 = 771( 1 ) + ri( I ,M)*ALP(M) 

PI AM 159 0 


PFTURM 

IM. AM 1*00 


FMH 

PI AN 1 * ] 0 





SHRRflllTTWF Oil All ( RHH, THICK ) 


PI. AMI 6P 0 


£ *#$*$* **********!><: sjt «*««*«** #«*«*#****>{:<, >Jt «««#««* ***«#*«****#*«#* PI . AW lft 30 


C FORM FLFHPNT M A T R J C F S PL ANlft40 

C ***«*******£$*«#***£***** #**£**$** ****$**»<$ ft ft * ft ft ft ft ft ft ft ft ft* ft ft ft ft* ft ft * ft $ ft* AN 1*50 

IMPLICIT RFAI.*R {A-h, 0-ZJ Pl.AMlftftO 

COMMON/ FI. PAK/MPAR( J4 ) , IFLP< 19) P| AN1670 

COMMON/FM/I.MI J?) f S( 1 P » 1? ) »P]( ) ?*4 ) , P? { l? ,4) f XM | ] 2 ) f ST( 15*1?) » PI.AN16R0 

1 TTH 6 ;, A) ,RM IP, IP) ,FMl (1RR1 } PIAN1A90 

COMMON/ JIINK/ JF( 4) ,JX( A) ,|=M|IU 4.5) ,0( 3.3) ,X <4),Y (4). 2 (4),TM (4),PLAN1700 
1 AI.PI?),T7!(3>*PRFSS.PFFT*ns*JMM1 ,P.R (4 ) , 77 (4 ) , PP1 M 2 ) « PI.AN1710 

P IK 4) ,V( 4) V M| 4) t H( ft) rHRfft) ,HZ( A),FAC»GI4) f F(4) f JIJN(ftft) PL AW17P0 

n f MFMS J ON SSf ?),SSS( 9) , TTT( 9) , l VFCT (4) , JVFCTI4) ,FMM(ft3ft } PL AMI 730 

F0H1VAI.FNCF <S,FMM) PLAN1740 

OAT A SS/-O.S77350PftPlR9ft3,n.57735O?ft91R9ft3/ PI AN1750 

DATA S S S /O , v - 1 # * 1 .*0. , 0 « / » TTT/O. , 0. * 0. ,-l • • 1 . / PL AN) 7ft0 

DATA IVFCT/4,?,! ,3/, JVFCT/1 ,3,?,4/ PJAN1770 

HO 10 1 = 1 1 43ft PLAN17B0 

10 F MM () )sO, PL AN1790 

nn po l = i , ip pi. aw i boo 

pn PP1 ( I Irfl, PI AN1810 


C*ftftftftftftft«*«ftftftftftftftft#ftftftft**ftftftftftftft*ft*ftftftftftftftftftftftft*ftft#ftftftftftftftftftftftftftftftftftftftpL AN 1 R? 0 
c C.PMPUTF FLFMFNT AXFS SYSTFM AMO C.PPNFR CnOROlNATFS PI AN1R30 

^ftftftftftftftftftftftftftft ftftft#ftftftftftftftftftft*ftftftftftftftftftftftftfti.ftftftftftftftftftftftftftftftftftftftftft*ftftftftft#p)_ AW1840 


CALL VFCTPRfH*X(l ) ,YI1 ) ,2 (l ) ,X <?>,Y(?),Z (?)) 

PI AN1P50 

CALL VFCTORI F ,X U ) , Y( 1 ) , Z (1) ,X( 4 ) , Y ( 4 ) , 2 ( 4)) 

PI. ANlRftO 

CALL CROSS (II, F,U) 

PI ANIP70 

CALL CROSS! w .11, V) 

PL AW1R80 

CALL VFCTOR <G*X(1 1 ,Y M )«Z(l),xm,Yf?),Z(3)) 

PL AN 1890 

RR( l )= 0 .n 

PL AMI 900 

z?m=o,o 

PI AN 1 9 1 0 

RR(?)=H(4) 

PL AN19P0 

77 ( ?)=n.n 

PI AN 19 30 

RR(3l=r,(4)4onTir,,ii) 

PI. AN 1940 

77(3|=GI4 )*nnTIGfV) 

PI AM 19 50 

RP( 4 |=F( 4 )*nnn F ,l>| 

PL ANl9ftO 

7 7 ( 4 ) = F ( 4 ) *DP T ( F ,V ) 

PI A N 1 9 7 0 


Cftftftft*ftft*ftftftftftftftftft**ftftftftftftftftftftftftftftftftftftftftftftftft*ftftftftftft*ftftftftftft*ft#ftftftftftftftft#ftftpL AN 19 80 


C FOR M UNIT ST1FFNFSS MATRIX , THFRMAI. J.OAO VFCTDR ANO MASS MATRIX PI AN 1 990 

^ftftftft*ftftftftftftftftftftftftft*ftftft*ftftftft*ft*ftftftftftftftft#ftftftftftftftftftftftftftftftftftft*ftftftftftftftftftftftftftpL AN? 000 


OP 900 11=1, p 


on 900 3.1 = 1 ,? 

CALL FORMRl SS( II 1.SSUJ ) * BR 1 

FTP=H( I |*TM( J |+H( P|#TM< P|*H( 3I*TM(3 J+H(4)*TM!4|-RFFr 
00 400 J=1,1P 


R1 =BR{ 1 ,.I)*FAC 
R?=RR( ?,J )*FAC 
R3=RR( 3,.I1*FAC 

ni*D(i , j )*R i+n< i ,? )* r?+0( i,3)*rb 
02=0( P,1 )4Rl+n( ?,?)*R? + n( ?,3)*R3 
03=01 ?, 1 )*R!+n( 3*? )*R?+0{3t3)*R3 

PP1 ( J )=PP1 ( ,H+FTP*( 01*ALP( i)+n?*ALP( ?)+03*ALP(3) ) 
on 4oo i=j,i? 

SI I,J)=SI I , .1 ) +RB( M)*ni + RR( 7 * I I*n? + RHI 3, I )*m 


PI AMP 01 o 
PL anpopo 
PL ANP030 
PL A NP 0 40 
PI ANP 050 
Pl.ANPOftO 
PI AMP 070 
PL AW? 0 RO 
PI ANP 090 
PL AM? 100 
PI AM? 110 
PL AN? I?() 
PI AM? 130 
PL ANP 140 


400 SU.l)=S(I,,M 

nn 49n 1 = 1 ,4 

490 XM( n = XM{ I)4-FAC« THTCK4HU) 

900 COMTINUF 

C ft* ft ft ftftftftftaftftftftftftftft ftftftftftftft ftft ftftftft ftftftftftftftftft 


PI ANP 15)0 
PL 6W7 Ifto 
PI ANP 170 
PLAN? 180 

*ftft ft ft* ftftftftftftftftft ft ftftftftftftftftftftftftftpl ANP 190 


c FORM STRFSS n \ SP1. AC.FMFN J MATRIX PI. AN? POO 

C**ftftftft*ftftft*ft*ft*ftftftftft*ftftft*ftftft**ft*ftftft*ftftft#*ft**ftftft*4ftftftftft#«ftft**£4*#ftS$*ft£*P| AM?? 10 


Q.55 




LL=NS/3 


PL AN???0 


nn 430 i.= l,U. 


PI AN? ? 30 


call formri sss a ) ,ttt( u ,rr> 


PL AM?? 40 


F7P = Hf) )*7MI ] >+H(?l*7M(2)+HI3)*TM(3)+H(4 )*1M|4)-RFFT 

PI AM? ? 50 


no 530 l 1=1,3 


PL AM?? 60 


T = T I + 3*(l -1 ) 


PI AN? ?70 


T T ( T ,4 ) = -TT 1 ( II >#F7P 


PL AN?? HO 


nn 5?n . 1 = 1 , 1 ? 


PI AN? ?90 


nn 53n k = i ,3 


PL AM? 300 


5^0 SI M * .1 ) =ST ( I , J ) +n( T I ,K)*RR(K, J 1 


PL AN? 310 

C******* ************##*££** yrs*******^**** *$****«** + **#*#*$******#*#**#£ PL AN? 3? 0 

C' 

FI. I M I NA 7F FX7RA OFCRFFS OF FRFFOPM 


PI AN? 330 



IF 1 IX (3) .FH # I X ( 4 ) ) OP 70 560 


PI AN? 350 


]F{ MPARf 6> .NF.O ) r ’ fl Tn 560 


PL AN? 3 60 


nn 5F0 MM= 1,4 


PI AM? 3?0 


1. = 1 ? -MN 


PL AN? 3P0 


K=l. + 1 


PI AM? 390 


C = PPl 1 K ) /S( K ,K ) 


PL AN7400 


nn 53 s . 1 = 1 , ms 


PI AM? 4 1 0 


5 35 TTI .1 ,4 ) = 7T( .1 ,4 ) +C C‘ST( .1 ,K ) 


PL AM? 4? 0 


nn ssn 1 = 1 , 1 . 


Pt AM7 430 


C = S( 1 ,K ) /S( K ,K J 


PLAM7440 


PP1 ( I )-P PI I I I~C*PP1 ( K ) 


PI AM? 450 


nn 540 j = i ,ns 


PL AN? 4 60 


^40 S7U, T I=S7( j, 1 )-C*ST t.UKI 


PI AN ? 470 


nn 550 J=1 ,L 


PL AN?4 80 


su , Jl = $t lt.')-C*S(K,,»» 


PI. A M? 49 0 


c- 

ROT A7F S7RFSS-nl SPLACFMFNT TP AMSFPRMA U ON 70 01 VF 

STRFSSFS 

PI AM? 510 

r. 

NORMAL AMR PARA1.LFL TO SIHFS - SIMILARI1.Y ROTATE 

INITIAL STRFSSFS 

PL AN? 5? 0 

C ❖ >**££££>>»!«#£ Jftifr***#**#*#* */$ #** 4?44 44 £$$ ##>!:«#& $#*$$ * 4 4 4 4 s)t 4 # # # # ifc 4 # # 4 4 * $ # $ £ jfr p| AM? S 3 Ci 


560 MSFT=LL-t 


PI. AN? 540 


if 1 msf 7 . L e , n ) on Tn 730 


PI AM? 550 


nn 7?n i. = l ,nsft 


PL AN? 560 


TVsJVFCTC L 1 


PI AM? 57 0 


,IV=jvfcT( L j 


HI. AN7 5H0 


CALL VFC7PR IP, RR( |VI,?7HV| ,O.Oim,RR I JV ) , 11 { .IV ) ,0 

.0110) 

PI. A M? 590 


s?=r,( 1 )*n 1 1 i 


PL AN7600 


r.?=p( ? i*r,( ? ) 


PI AM? 610 


sc=-o( 1 )*r,( ? i 


PL A N ? 6 ? () 


1 1 - 3#l.+ 1 


PI AN? 630 


t?=ii+i 


PL AN? 6 40 


I Q = M +? 


PI AN? 6 50 


T 1 = T T ( 11 ,4j 


PL AM? 6 60 


7 ?= 7 7 1 I?, 4) 


PI AN? 670 


T3 = TT( 13 ,4 ) 


PL AN? 6 HO 


T4=?.n$SC*T? 


PI AM? 69 0 


TT( I 1 ,4)=C?*T1+S?*T?+T4 


PL AM? 700 


7 7 ( I?, 4 ) = S?*7 1 +C ?* 7 ?-T 4 


PI AN? 710 


TTt 13 ,4)=SC*( 7?-TlI+( C?-S?)*I3 


PL AM? 7? 0 


nn 7in .1=1, r 


PI AM? 730 


P 1 =S T { 11 ,.|) 


Hi. AN? 740 


P? = S7 ( I?,.t) 


HI AN? 750 


R3=STt 13 ,.») 


PLAN? 760 


R4=?.n*SC*R3 


HI AM? 770 


ST( 11 ,.l ) =C?*R1 + S?*R?+R4 


pi. AN? 7 RO 


S7 ( 1?,.'I = S?*R1 +r.?S-R?»R4 


PI AM? 79 0 


71 0 S T C 13 t .l»=Sr.*( R?-IH )+( C?-S? 1 *R3 


PL AM7H00 


7?0 COM! J M| IF 


PI AM? RIO 


9S‘b 



7*0 JF( MPARf 5) ,NF 0 ? ) (;n TO iso PUN?R?n 

f ***«***$***£#****:**$* «*$fc****i*:fc4<r*s*$jfc*$*fc**$******$******#< t *$**$$*****4 t pL AN? 830 
C CAI.CHLATF PRFSSIIRF LOADS DM I -J FACF fM GlPRAf. COORD INA7ES ML AM? 840 



XX=D,5*ppFSS#RRI ? ) 

Ml. AN? ft 60 


OP l A*' 1 = 1*3 

PI AN? 870 


n =i 1-1 1 * 4+1 

P*. AN?A«0 


no IRS l= 1 *a 

PI AN7R90 


p?i ii ,u=xx*v( n*FMi»u l*?i 

Pi. AW? 9 00 

JAS 

p?m+] ,n*p?m,u 

PI AN?9 1 0 


c 

-CnOROTMAIF TRANSFORMATION 

PL AN? 930 

C 0 #**$* #*&# #*&#### #*$6#*: * #2 $####*$#* ###K:!4[#}tlltt###$l)c#pi~ AN? 940 

| 50 

OP joo 1 = 1,3 

PI AN? 950 


on 190 K = 1 ,4 

PI. AW? 960 


KK=4*I 1-1 )+K 

PI AN? 9 70 


no 1 AO J=[,3 

PI. AW? 980 


nn jfto i.= i ,4 

PI AN? 990 


LL=4*( J-l 1 +L 

PI. AN3000 

l AO 

RB(KK v LI.)sll( I)*( S(K ,L >*IM.I)+SIK ,l. + 4 ) *V ( J ) ) + 

Ml AM 30 10 

1 

1 V(IJ*< S(K + 4,U*W ,I) + S(K + 4,L+4)*VU| } 

PL AN30? 0 


XI *111 I )*PPl (K)+Vm*PPl IK+4) 

PI AN3030 


nn 190 i_ = i ,4 

PI. AN3040 

190 

PHKK*U = X1*FMUU1.,1 ) 

PI AN3050 


nn IQS 1=1,1? 

PL AM3060 


00 195 ,1=1,1? 

PI AN3070 


Sf l,.M=RRl r*.M 

PI. AM3080 

19S 

SIJ,I ) = SM*,») 

PI AN3090 


nn ?io k = i ,ms 

PL A N3 100 


nn pan i.= i,4 

PI AN3110 


nn pnn j = i ,3 

PL AN3170 


Ll = 4*M'-l )+ 1 . 

PI AN3130 

?no 

PPM U l = Sr(K*U*lf( J l + STl K tL + 4 1 *V( J l 

PL A M3 140 


nn ?]n ,i=l*l? 

PI AM3150 

?|0 

ST(K.,l|sPPl( ,lf 

Ml. AN3160 


nn ppn 1 = 1,4 

PI AN3170 


XX=XM< I )*RHO 

PL AN 3 180 


nn p?n l = i,4 

Ml AN3190 


P1(I *U=PHr ,U+XX*FMUL( l.,3) 

PL AN3?00 


PI ( 1 + 4 , L)=P1 ( 1+4,1. ) + XX*FMHL(L,4) 

PI AN3?iO 

??n 

PM I+Rfl.lePK 1 + A , L ) +X X *F Mil l_ 1 L.5I 

PL AN3??0 


OP 600 L=l*4 

PI AN 3? 30 


nn son 1 = 1 , ns 

PL AN3?40 

6nn 

nn*ii=ii( i,4)*FMHLa, 1 ) 

PI AN3? 50 


RFTIJRM 

PI. AN3?60 


FMO 

PL 6N3? 70 



SltRRnilTJMP FORMRIS f T f R) P1.AN37H0 

C*#****#-*#^****** ***$**** a****^**^**********^*****^ **************** pi am 379 0 

c FORM SHAPF-FIIMC7 TOM nFR1VATI'/FS AMn S T R A T N-0 1 SPI. ACFMFM T MATRIX PLAN3300 

*#*£4 #**$*«* *«4*####44#4$**#«*<<«********«***’C‘4* : 3‘**##’( : ***#tt4* PI A M 3 3 ] 0 
TMPI. If. IT RFA!.*R (A-H,n-7) PI.AN3.-J70 

niMFMSJPM M17,17),TIIM<J.i(M PI AM3330 

r.nMMnw/.HINK/ IF( A) ,TX( * ) ,FMIIU A,R ) , n( 3,3» ,X (A)*Y (4),Z U) •TMP(A).,PL AN3340 

1 

7 


A I. P ( ^ » ,71 T (3 ) f prfSS.RFFT •NC.JMMl ,RR ( A ) , 77 ( A ) , PP1( 1 2 ) , 

PI AN3350 

Ilf A ) ,V( A ) t w( A | ,H( A) ,HR( A » ,HZ (A) .X.I,HSI A) ,HT( A) ,.IUNI 5R) 

PL AN3360 

nATA M /I .7,3.4.9.10/. J.»/*i, 6,7. H,11 ,17/ 

PI AM3370 

SM = t .n-s 

PL AM33RO 

SP= 1 .n+s 

PI AN 3 390 

TM = 1 .n-T 

PL AM3A00 

T P= 1 .0+7 

PI AN 3 A 1 0 

H( 1 )=SM*TM* ,?S 

PL AN3A70 

Hf 7 )=SP#TM*.7R 

PI AM 3430 

H( 3 ) =SP* TP* . 75 

PL AM3440 

H ( t> ) = SM*TP*.7S 

PI A N 3 A 5 n 

hi p » = ( 1 ,o-s*s) 

PL AW3AA0 

HIM=<! .n-T*T ) 

PI AN3A70 

HS( l )=-TM*.?5 

PL AM34R0 

hs ( 7 ) =-h<; ( 1 ) 

PI AN 3490 

h.s ( 3 > = rp*.?s 

PL A M3 500 

HS( A )a-HS f 3) 

PI A M 3 5 1 0 

HS( S )=-? ,#S 

PL AN3570 

ms( A)= n.n 

PI AW3S30 

HT( 1 )=-SM*.?S 

PL AN3S40 

HT ( 7)=-SP*.7S 

PI A M 3 5 5 0 

HT { 3 ) = -H T ( 7 ) 

PL AM 3 5 AO 

NT ( A )=-HTM ) 

PI A M 3 5 7 0 

ht ( s ) =n.n 

PL A M 3 5 R 0 

HT ( 6»=-7.*T 

PI. AN3590 

P7T = HT( 3 )*7 7.( 3 )+HT( A ) *7 7 ( A ) 

PL AM3A00 

P7S=HS f 3 )*7 7 (3 )+HSI A )*77 ( A ) 

PI A M 3 A 1 0 

PRS = HS( 7 )*RR1 ? J-t-HSI 3 ) *RR ( 3 ) +HS ( A ) *RR ( 4 ) 

PL AM3A7 0 

PRTsHT 1 ? I*RR f 7 )+HT (3 ) *RP I 3 ) +HM A ) *R R ( A ) 

PI A M 36 30 

1F( OARS( 77t 3 )-Z7( A) l.l.F.1 .fTF-10) P7S=P. 

PL AN34A0 

T F ( OARS ( RR ( ? 1 -RR ( 3 ) ) J.F . 1 .OF- 10. ANO.nAPS (RR ( A ) ) . I.F . 1. OF-IO ) 

PR T = 0 , p| AN 36 50 

X.| = PRS*P7T-PRT*PZS 

PI. AM3660 

PSR = P7 1 / X,l 

PI AN3A70 

PTR = - P 7 S / X,l 

PL AN36R0 

PS7 =-PR T / X,l 

PI AM 3690 

PT7 = PRS/X.I 

PL AN3700 

on ion 1 = 1 , a 

PI AN 37 10 

HR ( T >=PSP*HS( I )+PTR*HTU ) 

PI. AN3770 

H7 ( I )sPS7*HSI I ) + PT 7*HT f I ) 

PI AM3730 


c * tt ff h £ * £ * * * * # # * * * * # * * £ * * * * * * J> « « * * * * # »ie # >t- * * * 4 * s!« <1 * $ * * * ' 4 : * # $ £ * *£ * JC* * * PI. A N 3 7 4 0 

C FOP M STRAIN 0 1 S P L A f. F M F N 1 MATRIX PI AM 37 S 0 

£$*$#****#** *«$*** £*$***#* * *«#«***:}(*#**•.*$$*:!:****#*#*$#**#*:*:**** 5* *****### |J|. AN 3 7 A 0 


on 7 00 K=1 , A 
1=1 II K ) 

J = ,IJf K ) 

R(1 . I ) = HR ( K ) 
R f 7, J )=H7 (K > 
R( 3 * 1 >=H7I K ) 
?00 P ( 3 t J ) =HW (K ) 
RFTURM 
FNH 


AM3770 
AM 37 HO 
AN3740 

AM 3 H no 

A M 3H 1 0 
A M 3 fl 7 0 
AM 3 H 30 
AN3HA0 
AN3H50. 


Q. 58 



SURRnilT I WF PPSTNVIA) P1.AN3R60 

C ******** * **************** *** ******* ************* *********************** pj AN3«70 
C PLAW3HH0 

f s> << s$r <c ******* ********************* ********* ** **************************** p| AN3R90 



implicit rfal*« ( A-H,0-7 ) 

PL AN 39 00 


niMFMSlOW A { 3 , 3 } 

PI AN 39 1 {1 


no 700 N=l,3 

PL AN 3970 


n=A im v m) 

PL AM 3930 


no ion j=i ,3 

PL AN 39 40 

100 

AIM, ,I) = -A(N,J )/n 

PI AN3950 


no iso i=i,3 

PL AM 39 60 


TFIN-I) 110,150,110 

PI AN 39 70 

no 

no 140 . 1 = 1 ,3 

PL AM39R0 


IFIM-J) 170,140,170 

PI AN3990 

170 

A{ T , .1 ) =A ( I , J ) +A( I , N ) * A{ M , J ) 

PL AN4000 

1 40 

C0M7TMIIF 

PI AN4010 

1 50 

A1 1 » N ) = A I ! ,N )/0 

PLAN4070 


A(M,M)=1.0/n 

PI AM4030 

?00 

COMT 1 Ml IF 

PL AN4Q40 


RFTIIRN 

PI AN40bO 


FMO 

PL AN4060 


SURRHIITINF PI.NAX1HIWT,II)*X ,Y,Z , T , N TC . W T , PGFO , PMA T , NUMPV . NUMNP , PLAN4070 

1MIIMMAT , MIPMTC • KPDF « MIJMF , NUMGFr ) PI AN40R0 

f ******************************************************************* ****p|_ AN4090 

C ST T FFFMFn MFMRRANF F I.FMFNT PI AN4 1 00 

£************************************** *****************************#***PC AN4l 10 
IMPLICIT RFAL*8 (A-H,0-Z) PI AN4170 

RFAI. *4 1 1 W T f X * V « 7 « T , PGFO , W T , PMA T ,RF l«F4*F5,F6,F7, SRC , P PC .GRC t FRC PL AN4130 

OIMFMSIPN IJWT ( NIIMnV) * in{MHMMP.6 ) « X ( Ml I MM P ) ,Y (NIIMNP ) ,Z (NIIMNP ) , PI AW4140 

l T ( MUMNP ) ,MTCt NIIMMAT ) ,WT( NIJMMA T ) , PGFO ( NUMM A T , *5 ) , PL AN41 50 

? PMA7IMIIM1C*R*NIIMMAT ) PI AN4160 

enMMHN/FM/LMt 1?) *S( 17,17) ,P1( 1 ? *4 ) » P? ( 17*4) « XM( 17) , ST( 15*12) . PLAN4170 

1 7 T I 1 5 , 4 ) ,RR( J ? * 1 7 ) , FM 1 | ] R9 ] ) PIAN4180 

COMMON/ JUNK / IF{ 4) *|X(4) f FMULI 4 * 5 ) * C( 3,3) * XX ( 4 ) , YY ( 4) » ZZ ( 4 ) * TMP I 4 ) , PL AN4190 
1 ALP(?),nM3) f PRFSS«RFF1«NS,JIINl,XNX7,X3.X4,Yl*Y? v Y3.Y4 v FFI7). PI AN4700 
7 JIIM(1S4) PL&N47U) 

COMMON /UNI TS/IR»I U ,TP»I1,T7»1?»IH»I9, 110, 111 , II 7 PI AN4770 

f ;************************************* *******************************«**PL AM4? 30 

C CONTROL INFORMATION p| AN4740 

£*******************************************#****************** ******* PL AN4? 50 
Ml 1=1 PI AN47M) 

MV- 1 PL AN4? 70 

M0=17 PI AN47R0 

MW=1 PLAN47 90 

NT = Q PI AN430O 

I F X=3 PI. AM4310 

WRT7FI J W, 7000 ) NUMF ,KOOF , NIIMMAT ,NIIMGFf, MUM TC PI AN4?.7 0 

V*R 1 T F C I W *7 0 1 ° ) PLAM4330 

00 f.0 M=1 ,M||MMAT p| AN4340 

RFAOI 1R, 1010) N,MTCtM ) *VH(N) PLAN4350 

IF INTC IN) J.F.0 ) M T C ( N ) = 1 PI AN4360 

WRTTFMW.7070) N t MJCI N ) ,N T I M ) PLAM4370 

C *************************************************************** ********p| AM43RU 

C- TFMPFR ATURF OF PFMDFMT MATFPUL PPOPFPIIFS PLAN4390 

C************************************************** ********************* pi AM4400 


6S‘b 



M T = M T r. { N) 

R F A D ( T R • 1 nos | IIPMAKI = I=l»Nl ) 

nn |0 1 = 1 ,MT 

IF (PM AT ( I ) PMA T ( I ,A,N)=PMAT( I » 5 * N ) 

IF(PMAT( T*7*MT).LF.0.> PMAT( 1 *7,M)=PMATI I , 5, N) *0.577 
I F ( PMA 1 ( I , fl,Ml ).|.F .O. 1 PM A 1 ( I , R , N > = PM AT ( I • A » N ) 
in cnwr 1 Ml IF 

AO WR11F ( |W,?Oin ) KPMAKI* , I, N>,, 1=1, R),I=1, NT) 


PL anaa in 
pi anaa?o 

PL ANA A 30 
PI. ANAAAO 
PLANAR 50 
PI ANAAAO 
PL ANAA 70 
PI ANA ARO 


0 ********************************* **************************************PL ANA A 90 

C OFOMFlRIf. PROPFR7Y CARDS PI ANAS0O 

£*********************************************************************** PL ANA 5 1 0 


WRTTFf IW,?01 1 ) 

PI ANA520 

on 7n 1 = 1 .wiiMOFn 

PL AN A 5 30 

RFAO( IR,1 POA) N,TH,W*SA,S1 ,n,WF 

PI. ANA5A0 

|F(t/F.LF .0. 1 WF=W 

PL ANA 5 50 

pr,Fn(M, 1 )=1 ,0+SA/(W*TM) 

PI AMA5A0 

POFO( Mf ? I -W / TH 

PL ANA 5 70 

pr,Fn(w,3)=wF/TH 

PI AMA5R0 

OR=S A*0/( w*TH+SA ) 

PL ANA 5 90 

RI = VJ*7H**3/l?,0+W*TH*nR*nR + SI + SA* (n/PGFO(N, 1 ) )**? 

PI. ANA600 

POFn( N,A | = M I /TH**A 

PI. ANA610 

C1=17.0*S l*0.Q?5/( W*1H**3) 

PI. AMAA70 

C7=SA*o*n/si 

PL ANA A 30 

C3=1 .n+C 7 /(n.RP*P 0 Fn(N, J )+0. 1 7 ) 

PI ANAAAO 

POFn( N,5 1 = 7 .n*P(;FO( M f ? )**?*( OSOR T( l.n+r.t*G3) + l«0) 

PL ANAA.50 

WR T 1 F ( I w ♦ ?01 7 ) n,tn.w*sa*si * n , w F 

PI ANAAAO 


C*** ********************************************** *********************vpL AWAA70 

r. FLFMFM1 I.OAO Mill. T I PL I f= R S PI ANAARO 

f *********************************************************************** PL ANAA90 


nn m i = i , a pi ana7oo 

RFAn( lR f ion? ) FMMU I,n,(FMIIU ! ,J>, .1 = 3.5) PLANA710 

1?1 F Ml H. ( 1 , 7 ) =0, PI ANA7?0 

WRITFI I W * 7 00 A ) ( FMUU I , 1 ) t ( FMIIL( I * .1 1 * J=3.5I , I=1»A| PLAMA730 

C******** ************************************************************* **PIANA7 AO 

C Ft FMF K *T CAROS PL ANA 7 50 

r *********************************************************************** pl ANA7M) 


WRTTF ( A, 70071 
M=1 

130 RFAO( IR, 1003 ) IFL •IF, IMAT,inv,FPC«R 
IF (FRC.LF.n. ) F P C = 1 • 

IF ( FFC.I.F .0) F F C = 1 . 

TF(IK'C.FO.O) FNC=1 
IF(MS.FO.h) MS = 3 

I F I NS. LI • ? I NS=1 

! F ( ( I F( ^ > ,FO. I F ( A } ) . AM n . (NS. 
ANO=RF1 A/ 57. 70577^5 
RHn=WT( I M A T ) 

TH I CK =PCF O ( I M A 1 ( 1 > 

rft=rfta 
KK= INC* f 1 FI.-N ) 
on 1 A 7 I =1 * A 
1 A 7 I X ( I )= T F ( I )-KK 
00 500 MFl.sN,fFI. 
lFMP=n. 

nn 5oi i =1 • a 
IT=IX( n 

TFMP = TFMP+T( 1 T )*n.75 
XX ( I )=> ( II ) 

YY( I >=Y( 1 | ) 

^01 7711 1*7 fill 


PL AN A 7 70 
PI AMA7R0 

F T. AA t AR,RFTA.FFC,NS* INC PL AM a 790 

PI ANAPOO 
PL ANAR} O 
PI ANAR7 0 
PL ANAR 30 
PI ANARAO 

]M ) NS=1? PL AMAH 50 

PI ANARAO 
PL AMAH 70 
PI AWAPRO 
PL ANAR90 
PI ANA900 
PL ANA910 
PI ANA970 
PL ANA 9 30 
PI ANA9A0 
PL ANA9 50 
PI AMA9A0 
PI. ANA 9 70 
PI ANA9H0 
PL ANA 9 90 
PI A N 5 000 
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C i************* j}!#*^^^**#^**^*****’**#******* ** *#***$ ************:*** *$**:## * pj^ ANSOIO 

C JMTFRPOIATF MA1FRIAI. PRPPFR1JFS FPH AVFRAGF FLFMFN1 TFMPFR AlURE PI AN5070 

0 $**#*$* sjc* #$ ** $$« * -:$** $****«*« #*fc 4 . ***** ****** ***** ** *** **************** * p)_ AN SO 30 
CALL INTFRPIPMAI ,FF,NI|MTC,NOMMAT ,R,7.N1C ( 1 M A 1 ) , I MA 1 , 1 F MP ) PI AN5040 


F4=FEI 4* 

F 5 = FF I S ) 

FA=FF( A) 

F 7=.FF ( 7 ) 

C1=FF( 1H0.PA9A 

C?=C1/ l ?*0*U.P-FF (?)**?) ) 


PL AM SO 3D 
Pi AN5060 
PL AN SO 70 
PI AN50H0 
PL ANS090 
PI. ANSI 00 


C ********************************************************************* **p^ ANSI 10 

C FORM CnNSinUTJVF LAW AND CnWPinF THERMAL 57RFS5FS PIANS1P0 

C ********* **************** ************** Jr* 4. ** * ** * $ ft#***#****:* if:* ****** ** * * pj .ANSI 30 


PP PAS 1=1,3 

PI ANS140 

nn pas . 1=1 n 

PI. ANSI 50 

cn,,i>=n. 

PL ANSI 60 

C( ?,?)=1 .O/FFI 1 J 

PL ANSI 70 

r r 1 ,1 )sCf?» 71/THICK 

PI AN5180 

Ct 1,?)=-C( 1 ,1 )*FFI ?| 

PL ANSI 90 

C(?,l }=C ( l ♦? ) 

PI. AN5P00 

C( 3,3>=C(?,?H?.n*( 1 .O+FE ( ? ) ) 

PLANS? 10 

AI.PC1 ) = FF ( 3 ) 

PI AN5??0 

ALPI ? )=FF{ 3 ) 

PL A NS? 30 

ALPI.3)=n. 

PI ANS?40 

CALL FLAW(RFTA) 

PLANS? 50 


(-********************************************************** *************p| AN5?A0 

C FORM FLFMFNT LOCATION MATRIX AMP COMPUTE FLEMFNT MATRICES PL AN5? 70 

£***************************** ****** ********** **************************p^ ANS?HO 
DP 170 |=l t 4 PLAN5P90 

11=1X11) PI AN5300 

TMP(l)=sTMn PL ANS310 

I. M f J 1=10(11 ,1) PI ANS3P0 

I.M( l+4)=im M ,?) PLANS330 

170 LMM+n)-Tnm,?) PI ANS340 

CALL miA0( RHP* THICK I PL AMS350 

ARFA=XM( I J+XM(? J+XM(? J+XMI4 ) PI AM5.3AO 

IIWTI !DV)=IIWT( IPV l+ARF A*RHP*FRC PL AN S3 70 

£****************************************************************** **«**pj ANS3R0 

C CPMPHTF FLFMFNT OFSTGM INFORMATION PL AN5390 

f ;******** #** ******************************** ****************************p| AMS 400 
IF{ AA.I.F .0) AA=,5*( !X? + X3-Xl-X4)*ncnS( ANG)-( Y?+Y3-Y1-Y4)*0S!M(ANG) IPLAM5410 
IF7 AR.LF.n)AR=.S*MX?+X4-Xl-X?KPSINf ANGI + I Y3 + Y4-Y1-Y2I*DCPS(ANGI JP{ AN54?0 
SRC = Cl*FFC*PGFni I M A T , A ) /( A A* A A*PGFfl{ I M A T , ? > ) PL ANS4 30 

PRC=C?*THTCK/PGFniTMAT f ?)**? PI AN5440 

GRC=C?*0 .?S*PGFP{ |MAT,SI/AR**4 PLANS450 

£******** ****************************************************** *********p^AM54f,() 

C CALCULATF RANPWTOTH AMP WR I TF FI.FMFMT INFO. PN TAPES PLANS470 

£****************** ********* ***************************** ***************p{ AM54R0 
MM=:MS*Mn*NII PLANS490 

CALL RFAPAM ( ST , ST * 1 S. 1 ? * 1 , NS • NO , Ml f , NN ) PI AM5S00 

MM:sMS*4*NW Pl.ANSSlO 

CALL RFARAMITT.TT, 1S,4, 1 ,NS,4,MW,MN ) PI ANS5?0 

CALL CAI.RANI NO IF , l_M , S *Pl , S T , T T ,NI I , NV , NS . NP , MW , I PV , IFX.FRC) PL AMS S 30 

WRMF UP) NI,RF7 ,F4,F5fFA f F7,PGFf7f IMATt M, SRf ,PHC,GRC Pf AW5540 

WR1TFI l W * ? 003 ) NFL, IX t IMAT • I PV, FRf. *PFFI *AA,AR,BF T A . FFC ,N S , Nl> I F PLANS550 

pp 4SP !=1 ,4 PI ANS5A0 

4SP 1X( l)=TX( I) + 1NC PLANSS70 

sno r.pNT i mi if pi anssro 

M= 1 FI. + 1 PI.ANSSCJO 

TFIN.LF.NIIMf I GO m HO PI AWS600 
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RFTMRW 


PLANS*. 10 


inn? format ( 4Fin,n ) pi 

ioo3 format! 7!5,sy,4Fin.o/?Fin.n,?is) pl 

inn* 1 ; format (pfio.o) pi 

IOoa format! i *» * ^.f i o.o I PL 

mm F PP MA7(?J5, Fin. 01 PI 

?nnn format! 43hi miimrfh of mfmrranf flfmfnts = ,is/ PL 

1 4 ah const riic ttpn koof = ,is/ pi 

? 44 H NMMRFR OF MATFRJAl.S = ,15/ PL 

3 44H NIIMRFR OF GF OMF TRIP. PROPFRTIFS = , T S / PI 

4 44 H NIIMRFR OF TFMPS FOR WHICH MAR PROPS GIVFN=,I5I PL 

?00? FORMAT I// ??H PROCFSSFD FI.FMFWT DATA// PI 

I 1 7 1 H FLFMT/ MPOFS //-in NOS-/ OFS VAR RFFRRENCF PL 

?M A X I.FNGTH WinTH ANGI.F TO FNR FIXITY PRNT HAND / PI 

3 1 2 1 H NMMRR I .1 K I. MAT nV FRACTION TFMP PL 

40 F STTFFMR OF FLFMFNT PR INC 0 1 R M C.OFFF T CODF WOTH / ) PI 

?nnR FORMAT! 1 X,7T5,AF 17. 4, 7IA ) PL 

7 004 FORMAT (?3H F I. F M F N T LPAn FRACTIONS /54H LOAD CASF TFMPFR ATlIRF X-OIPI 
1 RFC, T TON Y-MRFCTION 7-ni»FCT10M /9X. 1HA ,4F \ ?. 3/ PL 

p 9X,lHP t 4F17.3/ 9X, 1 HC*4F17. 3/ 9X , 1 HD , 4 F 1 ? . 3 ) PI 

?nm FORMAT! lH+,?SX,RFl3.4/( 2f.X,flF)4.4 ) ) PL 

7011 F0RMA71/01H GFOMFTRY SHFFT SPACING OF / STIFFENPI 


WinTH of / 
STI FFFNFRS 
) 


ARFA 


1 FR PROPFRTIFS / 

? 91 H NIIMRFP THICKNFSS 
4 n 1ST flF COG SHFFT 

701? FORMAT! IX, IS, AF14. 4| 

70 1 9 FORMAT!// ?5H MATFR]A|. PROPFRTY CARDS 
1/J75H MAT], NO OF SPFCIFIC 

PSSOMS C.OFFF T OF / AI.LOWAR1.F STRFSSFS 

? / 1 7 1 H NR R TFMP WFIGHT TFMPFRA70RF MODULUS 

4 A T 1 0 THFHM FXPM TFNS COMP SHFAR cripung 

70?0 FORMAT! IX, 14, Ift,?X,F14.4 ) 

FNn 


YOUNGS 


PL 

IMFRTTA PI 
PI. 
PI 
PL 
pni pi 

/ PL 

R PI 
/ ) PI- 
PI 
PI. 


AN5A70 
AN5A30 
AN5A40 
ANSA50 
ANSAAO 
ANSA 70 

amsaho 

A MSA 90 
AN S 700 
ANS710 
ANS770 
AN 5 7 30 
ANS740 
A MS 7 SO 
A N 5 7 A 0 
A M 5 7 7 0 
A N S 7 R 0 
AWS790 
AMSPrm 
ANSP10 
AN5P70 
AM SR 30 
AN5R40 
AN SR 50 
ANSP60 
ANSR70 
AMSRRO 
ANSR40 
ANS900 
A M 59 1 0 
AMS 9? 0 
ANS930 


SI IRRCIf IT IMF nPl.ANl ( AOLP, AMFW , I. OA n , Ml IMDV ) PIANS940 

Cfc*#****:*#.!;/,!.}:*#*****#*:***#*###^**#*##**#*^######^*^:***#########^####*## PL ANS9 50 
C OF S I ON OF STIFFFMFO MFMRRAMF FI.FMFMT PIANS960 


nlMFMSlPN AOL 0 ( NIIMOV ) , AMFW ( MUMDV ) , I.OAO ( NllMOV ) 

COMM ON / .11 INK / .11 IN | TA) ,|.T,LH f L t S0( ?0), S1G! 7) , 10VAR, IFX,FRC,ARFA, 

1 X I NFR T ,RFTA, TFMS, COMP ? SHFAR , CRUSH , TAU. SRC , PHC « GRC » .INN 1 <240) 
PX = SIG(4) 

PY-SIP! S) 

PXY=S IG! A) 

£***«*«*$**£*£$*** *){:*£: 
C FIHI.Y STRFSSFP MFS|GM 


PI AN59R0 
PL ANS990 
Pl.AMAOOO 
PL AM AO 10 
PI ANAO70 
PL ANA030 
#*$sp| AMA040 
PL ANA050 


C***<t«*fr**^*#**#****!!t*»^^****flt^^**fr*******^^M}t#i(:<t««****««’(:’<K4'^*«’{:^«Jt:>{'^*’0t**P| ANAOAO 


PI =COMp<: TAM*ARFA 

p?=cpmp*arfa 

PI 7 = SHFAR*ARF A 

IF (PX.GT.n.O) P1 = TFNS*T AII*APFA 
IF (PY.GT.O.O) P?=TFMS*APFA 

RMAX=IPX/P1 )#*?+(PY/P? )*$7-( PX /PI >*IPY/P?) + IPXY/Pl? )**? 
RMAX = SOR T( R M A X ) 

IF (PX.GF.O.O) GO TO 100 


PL AMA070 
Pi AMAOHO 
PL ANA!) 90 
PI ANA 100 
PL ANA1 10 
PI ANA 170 
PL ANAl 3 m 
PI AM A 1 4 O 


C #*$#*£<:***##$******** **«$!;8»***fc£*s*£#****xs*^#£*#$*$*j5:#*s< p|_ ANAl 50 


C STI FFFNFP FAll.llRF 


PI ANA l ATI 
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psr-px PI AN61 flO 

PF-SRC^XIMFR T PLANM90 

A AsP/PF PI.AN6700 

R=l.O/lFX PI. ANA? 1 0 

P=:AA**R PI ANA770 

IF (R.GT.RMAX) RMAXrR PI. ANA? 30 

P1=CRUSH*'|AII#ARFA PI A NA740 

PZ-O.RSPl PL ANA? 50 

CAU. ,IPHMS < IFX*P, PI *P?,PF.P ) PI ANA?60 

IF {R.GT.RMAX} RM AX = R PI. ANA? 70 

C ****** ******** *********** ****** ******** ******************* ************* pi AN6?H0 

C SHFFT RUCKLING RFTWFFN STIFFFNFRS PI.ANA?90 

C *** *** ***************** ****** ******* ********************** ***********pl_ ANA 300 

100 PX--PX PI.ANA310 

PYa-PY PI ANA 320 

AAsPX+4.0*PY/TAH PLANM30 

.RR=1,405*pxy/TAH PI. ANA340 

R=O.R*( AA + SORTI AA**?4-RR**7 ) ) /PRC PL ANA350 

IF IR.GI.RMAX) RMAX^R PI. ANA3A0 

C ************************************************************** *********PL ANA A 70 

c gfmfral ruckling pf pamfl pi.an63bo 

C *********************************************************************** PL ANA390 


IF (py.Ll.n.O) GO TP UR 

PI ANA400 

PF~GRC+XINFRT*ARF a*arfa 

PI. ANA4 10 

A AapX/ PF 

PI AM6470 

R=AA**0 .7 

PL AN A4 30 

IF (R.GT.RMAX) RMAX=R 

PI AN6440 

AAsRMAX*Ani.n( IOVAR ) 

PL AN64 50 

!F{ AA.LT. AMFWUOVAR) ) GP TP hO 

PI AN6460 

AMFW( inVAR)=AA 

PI. AM A4 70 

I.PA P ( I OVAR ) = L 

PI AMA4R0 

CPMTINIIF 

PL ANA490 

RFTIIRN 

PI. ANA500 

FNO 

PL ANA510 
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SMRROin IMF PLNAX7MIW1, 1 0, X , Y . 7 , 1 ,M TC , Wl , PMA T , Nl IMDV , NlJMMp , NUMM AT , PI ANAS70 

1 miimtc ,KnnF ,niimf ) pi. ana53o 

p********************************^*#************#*************#*******^! AN6540 

c PI.AMF ISnTROPIC MFMRPANF FI.FMFNTS PL ANAS 50 

£*********************** ********5$#*^*********$** *********$*##*****>!:***HI ANAS AO 


IMPLICIT RFAI.*fl t A-H ,n-Z ) 

R F A l_ # 4 IM-H ,X, Y,7, T,WT,PMAT,PF1 ,F4,FS,FA,FRC 

DTMFMSIDM IIWTC NUMDV ) . in( NIIMNP ,A ) f X( NIIMNP) . Y ( NIIMNP ) ,Z ( NIIMNP ) , 

1 1 (NIIMNP ) ,NTC.( NIIMMA T 1 ,M1 (NIIMMA1 ) , PMA T t NUM 1C , 7 , NIIMM A 1 1 
CnMMnN/FM/|_M( 1 ?. > , St 1 ? , 1 ?. ) • P( 1 ? , 4 , 2 ) , XM I 1 2) t S T I 1 5 , 1 2 ) , TT (1 5 , 4 ) , 

1 RRI1?,1? »,FM1 ( 1RQ1) 

CnMMHN/JI INK / TF( 4 ) , I X ( 4 ) , FMOU 4 , 5 ) , n( 3 f 3 ) , XX ( 4 ) , Y Y ( 4 ) , Z Z ( 4 ) 

1 AI.P( ? > .Til (?) ,PRFSS,RFFT.NS, JUNl ,EE(M , JUMI17? ) 
Cf1MMnN/IINITS/IR,lVi,IP,11,I ?,IBf IRi I 10, UMl? 


PI. ANAS 70 
PI. ANASHO 
PL AMAS90 
PI 4MAA00 
PL ANAA10 
PI. ANA 67 0 
TMP(4) * pl. AN A A.iO 
PI AWAA40 
PL AN AA 50 


(^*******************H:**************’>**<r*:ic:****H;*H;*H:*:jE**:}<*H:***#***#**ifr****p| ANA A AO 

C CONTROL TMFPRMATI on PLANAA70 

£****** ******************************** ********************************* p|AN6AR0 
Ml 1=1 PLANAA90 

N0=1? PI ANA 700 

NV = ? PI. ANA710 

NW=1 PI ANA770 

NJ -4 PLANA730 

I F X = 0 PI ANA740 

WRITF( JNMMF ,KnOF ,NMMMAT,NUMTC PL&NA750 

f ************************************ * *********** *********************** p| A M A 7 A (■) 

C : MATFRTAI. PRPPFRTY CAROS PLANA770 

f ******************************* ****************************************pL ANA 780 
WRITF( IW,701Q) PI.ANA790 

On AO M=1,MHMMAT Pl AAJAROO 

RFAD( IR * 10 1 n ) N V NTC(N),WT(N) PL AM6ftlO 

IF fMIC(N) ,l_F.O) NTCfNIsl PI. ANA870 

WR ITF( TW.7070) M , N T f, ( M ) , W T ( M ) PL ANAfl 30 

£*********************************************************************** PL A Mf>840 

f. TFMPFRATURF OFPFNOFNT MATFRIM. PROPFRTIES PL AMA850 

£*********************************************************************** p| ANA P 60 
NJ =MTC( M ) PL ANA870 

R F A 0 ( IRflOOS) I (PMAT I I ,J,N) ,J=1 ,7), 1 = 1 , NT ) PI. ANA8R0 

On 10 1 = 1, NT PL ANA8 90 

1FIPMA1U ,A,Nl.LF.O. ) PMATII ,F,N) = PMATU ,5,N) Pl ANA900 

10 COMTINUF PLANA910 

AO WR 1 1 F ( I W, 70 1 0 ) MPMA1 ( I ,J,M) ,J=] ,7) , 1=1 ,NT ) PLANA970 

P <« * Hr ** ** *** *** * Hr Hr * * * * $ ***************************** * ** * * * * * * * * * * * * * * * * * * p|_ A MA9 30 

C FLFMFNT I.PAH Mill. T I PL 1 FR S Pl ANA940 

f,*** ************************************************************** ******p|_ AN AO 50 

RFfin (TP, 1007) ( (FMULU . Jl , J=1 ,5), 1=1,41 PI ANA9A0 

WRITF( !W,?nn4 ) ( iFMIMJ I , J) ,J=1 ,5) , 1 = 1 ,4) PL ANA9 70 

£*********************************************************************** p| ANA9«0 


C Ff . FMFNT CAROS PL AMA990 

C* ************* ********* ****************** **************** ***** ********* PI AN7 0OO 


WR 1 TF (A, 7007) 

N=l 

1 70 RFAn( TR, 1003 1 1 F I. • I F , I M A T , I OV , FR f. , R F F T , PR F SS , RF T A , NS • I NC 
IF (FRC.LF.O. ) FRC = 1 • 

1 F | 1 MC, , F O , 0 ) 1 N C, = 1 

T F ( NS. FO. 0 ) NS = 7 
I F C NS ,I.T .? ) NS=1 

I F r l I F ( 3 ) ,F0. 1 F ( 4 ) ) • A NO • (MS.FO. 1S» ) NS = 1? 

RHn=WT( 1 M A T ) 

1 H 1 C K. = 1 ,0 
RFT=3FTA 


PL AN 70 10 
PI AM7070 
PL AN 70 30 
p| AN7040 
PLAN7050 
PI AN70A0 
PL A 1^70 70 
PI AN70H0 
PL AN 7090 
PI AN7100 
P». AN7U0 
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K K = 1 NC * ( 1 F 1. —M ) 

PI AM 7 17 0 

nn 14? !=i,4 

PL AN 7 130 

? X« I ) = I F I I )-KK 

PI AN7140 

nn son nfl=n,ifi_ 

PLAN7150 

T FMpsrO . 

Pt AN7160 

nn 5oi l=i ,4 

PLAN7170 

ifsixcn 

PI AN71R0 

TFMP=TFMP+T( Il)*0.?5 

PL AN7190 

xxd)=y cm ) 

PI AN7700 

YY( I ) = YC II) 

PL AN7? 1 0 

77m=?un 

PI AN7720 


r ##**4#*$ £#**«$*$* ««$* #«#***##$$*« *«#*$£* **#**$ *##«£*$**** *#**#****p|, AN77 30 

r INTERPOLATE MATERIAL PRflpFR TIES FOR AVERAGF FlF«FN 7 TFMPFR AlURE Pi' AN7740 

fc^****!*******#*#*****#**:****#:*;**:*##* £«****$: #*#* $**$**4 AN 7? 50 

CAM. TNTFRP(PMAT»FF*NHMTC »NHMMAT ,7«A»NTC( I MAT MI MAI, TEMPI Pi' AN7760 

F4=FF(4) PI.AM77 70 

F5=FF(5) p| AN77RO 

F*=FFC*) PL AN 77 90 

C FORM CONST I TNT I VF LAW AND COMPUTE THERMAL STRESSES PLAW7310 

(^ «« #**#*« *«#***«*****««:*##**««*****« ***#«**##*«**#*« *4««Jt**p| AN7 3?0 

nn 7*5 1=1,3 PI.AN7330 

no 7**^ J= 1 , 3 PI AN7340 

2*5 HI l,.l)=0. PLAN7350 

n I ? , ? ) = 1 , O/FF I 1 ) PI. AN7360 

Oil, l I =0(7,7) PLAN7370 

HU ,?) = -n(l.l )*FF<?) PI AN73HO 

ni?,n=nu,2) pl an 73 90 

nf?,3) = n(?,7)*?.0*( 1 .0+FFI7M PI AN7400 

AI.PI 1 )=FF{ 3 ) PI.AN7410 

AI.P(?) = FFI3) PI AM7420 

AI.P(3|=0. PL AN 74 30 

CALL FI.AWCO.nno) PI AN7440 

p,**********:**********,!**********:***************.**:***********#***********:*^ AN7450 

C form FI..FMFNT LOCATION MATRIX AMO COMPUTF FLEMFNT MATRICRS PI AN7460 

0 ********* ** *********** ** ** ********* ** ******** <e * « ****** V ****** ********** pi AN 7 4 70 


nn 170 1=1,4 

PL AN7400 

T T = I X( 1) 

PI. AN7490 

IMP ( J )=Tf II ) 

PI AN7500 

1.MI i ) = I0( 11 ,U 

PLAM7510 

I.MI T + 4 ) = inf I! ,?) 

PI AN7570 

lmi i+r ) = ini II, 3) 

PI. AN7530 

CALL onAniRHP, THICK ) 

PI AN7540 

ARFA=XM( l)+XM( ?)+XM(3)+XM( 4) 

PL AN 7 5 50 

UWT ( mV)=HWTI lOV ) + ARFA*RHn*FRf. 

PI AM7560 


p************* ******************************************** ***<t**********PLAN75 70 

C CAI.CHI.ATF PANnwinTH ANO WRITE FI.FMFNT INFO. ON TAPFS Pi AN75RO 

p************ ******************************************* ****************pp AN7590 


NN=NS*NO* N| I 
CALL RFARAN { ST , ST , 1 5 , ] ? , 1 ,MS ,Nn, NU, MN ) 

NN=MS*4*NW 

CALL RFARAMI TT , TT . 1 5 ,4 , 1 ,NS,4 ,NW, NN ) 

CALL r.AL«AN|NnlF,LM,S,P , ST , TT ,M|l ,NV . MS ,N0 ,NW . I PV , ] FX , FRC ) 
WRTTF ( I A) N I ,RFT ,F4,E5,FA 

WRHFC JW, 7003) NFL, IX,1MAT,I0V,rRC,RFFT ,PRFSS,RFTA,NS,NniF 
DO 450 1=1 ,4 

450 jxmMxm + iMc 
5oo r.nwTiNtiF 
N=| FL+1 

1FCN.I.F.MHMF) GO TO 130 


AN7600 
AM7f 10 
AM7F70 
AN7*30 
AM7640 
AN7A50 
AN7660 
AN7E70 
AN7*«0 
AN7690 
AN7700 
AN7710 


S9’b 



RFTIIRM 


PI AN7770 


1 no? FORMAT! 5F10.0) 

ion? FORMAT! 7f 5 tFS.O,?Fin.n, ?[6 ) 

100* FORMAT ( 7F1 0.0) 

1010 FORMAT !?I5, F10.0) 

7000 FORMAT! A^HIMIIMRFR of mfmrranf 
1 4411 CONSTRUCTION KOOF 

7 44H MIIMRFP OF MATFRIAI.S 

? 44H M1IMRFR OF TFMPS FOP 

7007 FORMAT!/ / 7 ? H PPOOFSSFO FI.FMFM 

1 Q7H Ft.FMT/ NPOFS / 

7 PR M T 

? °7H NIIMRR I .1 K L 
*PRFSSURF RFTA CO0F 

700* FORMAT ( 1X,7T5»4F17.A,7|6) 

7004 FORMAT! 7?H F L F M F N T I.OAO FRACTJ 
1SSMRF X-P1RFCT ION Y-n I RFCT [OM 
7 6X * 1 HA * ? X ,5F17.3/ 6X ,1HR 
? 6X ,1H0 t ?X ,5F1?.3 ) 

7010 FORMAT! 1H+,77X,7F14. 4 /I7PX.7F 
7010 FORMAT!// 75H MATFRIAI. PROPFR1 
1 / 1 ?5H MATI. MO OF SPECIFIC 

7SS0MS COFFFT OF / 

3/171H NRR TFMp WEIGHT 

AATTO thfrm fxpn TFMS 

7070 FORMAT! 1 X, T4 , 16 .. ?X,F ]4.4 ) 

FMO 


FI.FMFMTS 


= * I 5 / 

= ,15/ 

= ,15/ 

WHICH MAIL PROPS G I V F N = , I 5 ) 

T nATA // 

/- I n NOS-/ OF S VAR RFFFRFMCE 
RAMO ,/ 

MAT nv FRACTION TFMP 

VIOTH /) 

0MS//71H LOAO CASE TFMPFR A TIJR F 

7-niRFClIMN / 

,3X .5F17.3/ 6 X ,1HC ,3X ,5F17.3/ 

1 ^- 4 ) ) 

Y CAR ns / 

YOUNGS 

ALLOWARI.F STRFSSFS 

tfmpfraturf MoniiLiis 

ION COMPRESSION SHFAR/) 


PL AM7730 
PI. AN 7 740 
PL AN7750 
PI AM7760 
PL AM7770 
PI. AN77R0 
PL AM7790 
PI AM7R00 
PL AN7R10 
PI AM7P70 
PL AN7R30 
PI AM7B40 
PL AN7R50 
PI. AN7R60 
PREPLAN7R70 
PI. AM7RR0 
PL AN7R90 
PL AM 7900 
PL AN 79 10 
PI AN79? 0 
PO I PL AM7930 
/ PI AN7940 
RPL AN7950 
PI AN7960 
PL AN7970 
PI AN79R0 


SIJRROUTIMF nPl.AM? ( Ani.0,ANFW,LOA0,NIIMnV) PLAN7990 

t***#*#*#*#******^*#;^*###**# **#£#**##$ p| AMR 000 

C STRFSS DFSTGN nF ISOTROPIC MFMRRANF FLFMFNT PLANROIO 

C ***$********** *****$**********«***£**##*****$******$$#* fc**##*****###**# p|_ ANR 07 0 


n IMF NS ION AO L0( NUMOV ) T ANFW ! MIIMOV ) , L n A I) ( Nt JMP V ) 

COMMON /JMNK AM IN! 1 6 ) , IT , LH , L , SG < ?0 > . S I G (7) , IOVAR , I F X , FRC , ARE A , 
1 XINFRT,RFTA,TFMS,COMP t SHFAR * Jl IN 1 ( ?45 I 
C C = ! S I G ( 1 I + SIG!?) )*0.5 
RR=( SIG! 1 ) - S I G ( 71 )*0.5 
CR=SORT (RR*RR+SIGI 3) **7 ) 

PX =CC +CR 
PY=CC-CR 
P 1 =C OM P* AR F A 
P7=C0MP*ARFA 

IF 1PX.GT.O.O) P l = T F N S *ARFA 

IF (PY.GT .0.0) P7=TFMS*ARFA 
RMAX=( PX/P1I**7+! PY/P7)**7-I PX/P1)*! PY/P7I 
RMAX = SORT ( RM A X ) 

IF! SHFAR .FO.O. ) GO TO 50 
PXY=CR/ ( ARFA*SHFAR ) 

IF! RMAX.LT.PXY) RMAX=PXY 
50 AA = RMAX*AO|.n{ IOVAW ) 

IF! AA .|.T ,AMFW( IOVAR ) ) Gn TO 60 
ANFW! T OVA R ) = A A 

i.o An I i nuAR ) = 1 . 

60 RFTURM 
FMO 


PL AN RO 30 
PI ANR040 
PL AMR050 
PI A NR 060 
PL AN RO 70 
PI AMHORO 
PL ANR090 
PI ANRI 00 
PI. ANRI 10 
PI AN R 170 
PI. ANRI 30 
PI ANR 140 
PL AMR 150 
PI ANH160 
PL AMR 170 
PI ANRIPO 
PL AMR 1.90 
PI. AMR700 
PL ANH7 10 
PI ANP770 
PL AMR7 30 
PI ANR740 
PL ANR7 50 
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SMRRnMITMF SHFAR! A,M10T ) SHFROOOO 

£**************************************************************** *******SHFROO 10 

C SHFAR PAMFI. F1.FMFMTS SHFR0070 

f. **************** ******** ******************** **** ***** ***************** *SHF ROO 30 
OIMFM.SIPM AfMTOT) SHFR0040 

COMMON /FI. PAR/ MPARf ) 4 ) r NIIMMP f MRANI) , NE L TYP , Ml » N? , N3 r N4 , N 5 f WT 7 T » NFQSHFROO 50 


JFX,FRC,6RFA,XlNERTr 


SHFR0060 

SHFR0070 

Shfrohro 

SHFR0090 
SHFRD100 
SHFR01 10 
SHFRO'lPO 
SHFR0130 
SHFR0140 


1«MIIMFL , NIIMOV.M] ,M7,M?,LL f |.R,NFOn«NRf.nCK 
COMMONAJUNK/.IIIN! 16) ,LT,LH f l_ t SIG( ?7}» 10VAR, 

1 JIIW1(?4Q) 

CnMMnM/UNITS/IR, |W t TP ,1 1,1 2,n, Ifl, 19,110,111, I 1? 

MHMF=NPAR (?) 

KOOFsNPAR( 5 } 

TFfNPARM ).FO.O)GO TO 500 
M6=M5+NIIMNP 
on in (i , ?),koof 

£************* *************************** ******************** ********#***$Hf:R 01 50 

c SHF AR PANFL WITH STRFSS AND RUCKLING CONSTRAINTS SHFR0160 

£******************************************************* ****************$HFR01 70 
1 MUMMA1=NPAR( 3 ) SHFR0180 

Ml IMTC =N p A R ( 4 ) SHFR0190 

N7=Mft+MnMMA1 SHFR0700 

NR=N7+NUMM a t shfro? 10 

M0=NR+NIJMMAT*MUMTC*4 SHFP0770 

MMsNQ-MTnT SHFR0730 

TFIMM.GT.OICAI.L FRRPR(MM) SHFR0740 

CALL PANFL! A! Ml ) , A!M1 ) ,A( N?) , A( N3 ) , A (N4) , A(N5) ,A! NM , A(N7) , SHFR07 50 

1 A ( MR ) , Nl IMOV « NIIMMP , NIIMMA T *NI IM 1C* KOflF , Ml IMF ) SHFR0760 

RFTIIRN SHFR07 70 

C ************** ******* ********** ****************** ********** * * *Jc ********* SHFR 07 RO 

C PROVISION FOR SPFCFAl SHF AR PANFL FLFMFNT SHFR0790 

0****************** ********************** *******************************$HFR 0300 
7 CALL NOFI.EM 1 MPARU ) ,MPAR( 5) f IW ) SHFR0310 

RFTURM SHFR0370 

500 WR1TF ( ! u * 7007 ) KO0F SHFRO330 

nn ROO MM=1,M0MF SHFRO340 

CALL STRSCt A( Ml ) , A(M1 ) t A( N3) f NFO» NIIMDV * LL . LB ♦ 1 R* 0 ) SHFR0350 

AA=A IIOVAR )*FRC SHFR0360 

WRITF ( I W* 7005 ) MM.AA SHFR0370 

00 ROO L*LT t I.H • SHFR03H0 

IF(L.GT.IT ) MR ITFUW ,7006 I SHFR0390 

CALL STRSC! A (Ml ) ,A(M1 I t A (M3 ) , NFn,MllMHV,LL . LR. JR,1> SHFR0400 

SIG(5) = ( SIG( 1) + Srfi( 7) + SIG{ 3I + SIGI4M *0.75 5HFR0410 

WRTTF !JW,7007) L . I S I G U ) ♦ I = 1 , 5 ) SHFRO470 

GO TO ( 3 »4 ) ,K00F SHFR0430 

C************** *********** ********* * * ** * ***> * ** ****** ******** ************$HFR 0440 

C OFSIGN OF SHF AR PANFL WITH STRFSS AMO RUCKLING CONSTRAINTS SHFR0450 

C ;************ *********** ******* ************ ******** ******* **************$hFR 0460 
3 CALL OPAMFI. t A( Ml) ,A( M?) ,A( M3 I ,NIIMOV ) SHFR0470 

GO TO POO SHFR04H0 

C*************************************#*********************************SHFR0490 

C PROVISION FOR OFSIGN OF SPFCIAL SHF AR PANFL FLFMENT SHFR0500 

T. *********************************************************** ************SHFR 05 10 


* COM 7 I NUF 
ROO COMTrMUF 
RFTIIRM 

7007 FORMAT ( / /40H ANALYSIS OF SHFAR PANFLS, CONSTRM C00F-*I7 // 

1 9?H LOAD / SHFAR FLOW AT N0SHFRO56O 

7 OF S / AVF-RAGF / SHFRO570 

? 9?H FI.FMFMT TMICKWFSS CONp 

4K I. SHFAR F I.OW /) 


SHFR0570 
SHFR05 30 
SHFR0540 
SHFR0550 


SHFP05R0 

SHFP0590 
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7005 Fn«MA7fJ6,lX,FJ5.4) 

7006 FORM A T ( / > 

?007 FORMAT M M+, 73 X, 1 5 , 1 X ,5F 1 7 .4 ) 
fmo 


SHF R 0600 
SHFR06K) 
SHFR0670 
SHFR0630 


SMRRDltTIMF PAMFI.( HWT, 10,X ,Y,Z ,T,NTC*WT , PM A T , NUMPV , NUMNP ,Nt)MMA T , SHFR0640 
1 Ml IMTC • KOPF , Ml IMF ) SHFR0650 

C*** ********** **## £$******« ********fc*$*****«****S***S«£ J t:*<.**:l<###S*:4r##S**SHFR Oft 60 
C SMFAR PAMFI. FI.FMFMTS’ SHFR0670 

TMPUr.IT RF Al. * H !A-H,P-7> SHFR0690 

RFAI. *4 IMJT,X,Y*7,T*WT , PM AT , FR C , F 3 , SHCR SHFR0700 

PIMFMS1PM IIWT ( Ml IMP V I , f P < Ml IMWp , A |, X ( NIIMMP ) , Y I NUMNP ) ,Z (NUMNP ), SHFR0710 

\ T( MIIMMP) , N T C T MIIMMA r ) ,U T ( NIJMMAT) , PM A T I NUMTC . 4 , NIJMM A T ) ,CC (6,?) SHFR0770 

rnMMfWFM/l_M( 1 ? 1 , S ( l7vl?),PM?,4),ST(4,l?)«7T(4,4)«XM( l?)i SHFRO730 

1 FM| ( 775Q ) ' SHFR0740 

COMMON/ J| INK /FMIJl (3. A ),TF(4),|X(4) t XX(4),YY(4),ZZ(4),EFO),AKFA, SHFP.0750 

1 TF( 4,7) ,11! 4) ,V( 4) ,014) ,D| 4) ,P1 ,P? ,J1lNltlR4) SHFR0760 

rnMMnw/UMITS / IR, IV, IP,Uil?,13,IP,I9,nn,ni*Il? SHFR0770 

PATA CC/5.35 , R.qq , 8.99 , 5.35 , 5.35 , 7.07 , SHPR0780 

1 3.09 , 5.77 , 3.79 , 7.75 ♦ 5.63 , 3.91 / SHFR0790 

C ********************* **<<£******#**£**+**# £#*##*$$#****$$***$***£**$****SHFROR 00 

C rnMTRnL INFORMATION SHFR0810 

C***********.$***:fr******fr^******«**$**^**:fc***^******^***fc******$*******4;SHFROfi?0 
Ml 1= 1 SHF P. 0830 

MV = l SHFR0R40 

NH=1 SHFRO850 

W0=17 SHFROR60 

MS = 4 SHF R 0870 

!FX=3 SHFR08R0 

MI=7 SHF R 0890 

WRITF! I W , 7 000 )NI IMF • KPOF , NIIMM AT , Ml IM TC SHFR0900 

r MATFRTAI. PRPPFRTY CARPS SHFR0970 

r ******** ****** *** + $*$** ***** ************** ****** ** ********************* SHF R 09 30 
WR 1 TFl TW ,7001 ) SHFR0940 

DP 5 M = 1 , Ml IMM A T SHFR0950 

RFAO! IR.lOOl ) N ,NTC(N ) ,WT( M) SHFR0960 

IF IMTC(M).FO.O) MrC(N)=l SHFR0970 

WR ITF( IW,?007 ) M , M T C ( N ) , W T ( M ) SHFRO9H0 

C************** ****** i***************************************************SHFR0990 

C TFMPFRATIIRF nFPFNPEMT MATFRIAL PRPPFRTIFS SHFRlOOO 

£*************************************************«****************** ***$HFR1010 
MT=NTC( M ) SHFR1070 

OP 5 ,1=1, NT SHFR1030 

RFAn (IR,5P0n ( PMATI J,K ,N ) ,K = 1 ,4 ) SHFR1040 

IF (J.NF.l) WRITF I IW, 6007) SMFR1050 

5 WRITF ( I W , A003 ) ( PMATI.I,K,M) ,K=I,4) SHFR1O60 

£***********************************************************#*********** $HFR]070 

r. FI.FMFNT I.OAfl Mill. T 1 PI. I FRS SHFRlOHO 

C ** ****** * * * * ** **** * **** ** *** ****** *** ******** *********** **** ******** *^**£|_|p R 1 OW 0 
RFAO UR, 1003) ( iFMIII.C I , .1 ) ,.1=] ,4), 1=1,3) SHFR1100 

WRITF ( JW.7008 ) (IFMIII.I I ,.M, J=] ,4) ,1=1 ,? ) SHFR1110 

C ***************************************************************** ******SHFR1170 

C. f.CFMFNT CAPOS SHFRU 30 

C***** *********************************** *******************************<;HFR11 40 


Q.68 



wrhfhw, ?on* ) 

M=1 

ft RF A0( 1 R , 1 004 ) ]FL<IF«IMATfinV'tSI)'FRC'AL'Rl«INr. 
IF(IMC.FO.O) 1NC=1 


SHFR 1 ISO 
SHFRllftO 
SHFR 1170 
SHFRl 1 HO 
SHFR 1190 
SHFR 1700 
SHFR 1710 
SHFR 1770 
SHFR 1730 
SHFR 1740 
SHFR 1750 
SHFR 1 ? ftO 
SHFR 1770 
SHFR 17 HO 
SHFR 1790 
SHFR 1 300 
SHFR 1310 
SHFR 1370 


T F ( FRO. I_F. 0.0) FRC=1.0 
1 FC IKAT.FO.O) IMAT=] 

RHR=WT I I MAT ) 

KK = !NC*{ 1FI.-N) 
nn so I = \ ,4 
40 TXC 1 ) = 1 F ( n-KK 
nn son nfi_=n,ifl 

TFMP=o. 
nn ion i=] ,4 
II=IX( i ) 

V X ( I ) = X ( M ) 

YY( n = Y( n ) 

77111=7111) 

inn tfmp=tfmp+t( ll)*n*7S 
f;***********************************************************************^!* ] 330 

f ( IMTFRPOI. ATF MATFR 1 A). PROPFRTIFS FOR AVFRAGF FLFMFNT TFMPFRATURF SHFR 1340 

(-*****# ***************************************************** *********** *S Hf:p 1 350 
TAIL INTFRPl PMAT , FF ,NHMTO t NHMM AT , 4, 3 * N TO l I M AT 1 ,IMAT*TFMP1 SHFR 1 3ftO 

F?=FF(?) SHFR 1 370 

£*##******<:*** $***3******** ********************** ******* ****** **** *««#**SHFR 13 HO 

c FORM Ff.FMFMl OMIT MATRICES ANO LOAD VFCTnRS SHFR 1 390 

C «** ** *********************************** *******************************SHFR 1400 
SMnn=0.5*FF( 1 )/U.n+FF( ?)) SHFR 1410 

CAI L FPANFU SMnn,FF(?»,RHn,XL,YL.NELtIW) SHFR1470 

** ****************************** *********************************** SHFR 1 430 

C COMPHTF ni>fK). IMG DATA SHFR1440 

r $***#**$ *#$**#**4* ************** ************************ # **************SHFR 1 450 
SHCR=0. SHFR 14ft0 

SHFR1470 
SHFR 14 HO 
SHFR 1490 
SHFR1S00 
SHFR 1510 
SHFR1570 
SHFR 1530 
SHFR l 540 
SHFR 1550 


l F ( ISH.FO.O ) GP TP 171 
ifixl.gf.yl) on tp 170 
H=YL 
Yl. =XL 
XL = H 

170 IFIAL.LF.O.) AL -XI. 

I F < R1..LF.0. ) HL = YI. 

H=C.C( ISM ,1 )+r,r.( ISH,?)*RL*RL/( Al. * Al. > 

51 Hr.R = H*Q. nftOft*FF U ) / U ?.0*BL*RL* 1 1 . O-FF I ? ) *FF ( 7 ) > ) 

17! HMT( IOV)=llwn jnv ) +RHP*A«FA*FRf. SHFRlftftO 

C ******************************************** **************** ***********SHFR 1570 

C FORM I nr. AT ION MATRIX AMD CPMRMTF HAMP WIOTH SHFRlSflO 

r *************************************** *************************** ***** SHFR] 590 
no 470 1=1,4 SHFRlftOO 

SHFR 1 ft] 0 
SHFR lft?0 
SHFR l ft 30 
SHFR 1 ft40 
SHFR 1650 
SHFRlftftO 
SHFR 1 670 


I1=!X(I) 
nn 470 J=1 ,3 
I.»=H-1 )*?+.» 

470 lmi i j) = im 1 1 ,.n 

CALL CALRANl Ml) J F , M , S* P * ST » TT , NH ,NV ,NS *N 0 , NVJ , 1 OV* 1 FX , FRO 1 
WRITFl 1 R) HI ,F 3 ,SHCR 

HR 11 F ( 1 W • 7004 ) MFI_ * 1 X t I MAT * 1PV* I SUt FRO* AL , BLt NO! F 
C**^*******************************************************************^^ 1 * 80 

f OHFOK FPR MOP F F I.FMFM1 S SHFR 16^0 

r ************************************************* ****************** ****SHFR 1700 

' nn SEjE! 

SHFR 1 730 


4S0 1X1 1 > = IX( 1 ) + ]M0 
son opmtinhf 


m= ifl + 1 


SHFP 1740 


69 ‘b 


1 F ( M. I. F • Ml IMF ) GO TO A 
RFTIIRN 

1 001 FORMAT! PIS, Fin. 0) 

1008 FORMAT! 4F1 0 .0) 

1004 FORMAT! PT5,?F]0,0, IS) 

?000 FORMAT! 4 4H 1 Ml IMRF R OF SHF AR PANEL F L F M F N 
1 44 H CONSTRUCTION CPOF 

? 44H NUMRFR of MATFRIAI.S 

4 44 H NUMRFR OF TFMPS FOP WHICH M A 

7001 FORMAT! // ?5H MATFR1M. PRPPFR TY CAROS / 
191H MATFRIAL NIIMMFR SPFCIFIC 

?, A M_ nw ARL F / 

?9 ] H NUMRFR OF TFMPS WFIGHT 

4 SHFAR /) 

?0O? FORMAT! IA.5X, IS, FI ?.4) 

?003 FORMAT! / / ?5H Fl.FMF.MT LOAD Ml H_T I PI. 1 FR S 
1 14X,lHn,/AH X-OIR ,4F) 5. A/ AH Y-0IR*4Fl 
?004 FORMAT! I7*?X,4yA f 3T7»3Fl?*4*IA) 

POOR FORMAT!// ??H PPPCFSSFf) FLFMFNT flATA// 

1 9AH F1.FMFNT / MOOF NPS // 


TS = ,15/ 

= ,15/ 

= * 15 / 

TL PROPS CIVFM=,I5) 
/ 

YOUNGS 


TEMP 


MODULUS RATIO 


? AR / — FFFFC.7 PAMFI. njMNS — / 
ROAH NIJMRFR I J 

4PM LONGFR SHORT FR 

5001 FORMAT! 4F1 0.0) 

Ann? F OP M A T ! / ) 

A008 FORMAT! IH+ ,ROX f 4F 1 ? .4 ) 

FMO 


BAND 

K 

W T nTH 


/) 


SHFR1750 
SHFR17A0 
SHFR1770 
SHFR17R0 
SHFR 1790 
SHFR1P00 
SHFR IP10 
SHF R 1 R? 0 
SHFR1R30 
SHFR 1 RAO 
POISSNSHFR1R50 
SHFR1HA0 
SHFR1R70 
SHFR18R0 
SHFR1R90 

//?0X, IHA, l AX, 1HR, 14X,lHC , SHFR 1900 
5 * A / AH Z-0IR t 4F15.A ) SHFR1910 

SHFR1970 
SHFR 1930 
OFS VSHFR1940 
SHFR 1950 
FR AC T I SHFR 1 9 AO 
SHFR 1970 
SHFR 1 9 RO 
SHFR 1990 
SHFR? 000 
SHFR?010 


FL 10 NOS-/ BOUND 


MATE 


coof 
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SMRRniJTTNF FPANFU(;,GG.RHn t XL.Y|_ t MK.!W) SHFR? 0?0 

f ************************************************** *********************S H f R ;> 030 

C FORM SHF AR PANFI. FI.FMFNT M A T R I C F S SHFR7040 

C ********************************************************************* **5hFR ? 050 
TMPI.IC IT RFAI.SA ( A-H , 0-7 } SHFR7040 

CnMMPM/jHNK/FMIIL n,4 ), If(4) , JX(4) ,X (4),Y (4),; < 4 ) , FF ( 3 ) , AKF A , SHFR7070 

1 TF( 4 ,?) ,n( m ,v{ 4 ) ,(.)( &) ,n{ 4 ) ,pi , p?,vni ( 4 ) t vn? ( 4 ) .v i?( 4 ) , shfr? o ro 

7 VA1(4),VP1 ?(4),TI (3),Ut3) "MINI M3?) SHFR7090 

COHMOM/FM/I.MM ? ) »S (1?,1?),P ( 1?»4)f STI4.1?) ,TT(4,4) ,XM( 1?) * SHFR? 1 00 

] F M M ( ? ? 5 9 ) SHFR ? ) l 0 

£***********************************************$* **********************5 H p R p^pQ 

r 1 IM T 1 VFC1HRS AI.ONR DIAGONALS ,SI0FS AMD NORMAL IP 1 HF MFAWPLANF SHFR7130 

G ************* *********************************** ********************* **5jHp R 7 1 40 

call vFcmR ivni ,xti ),Yii).zn ).xn).Ym*7m ) shfr?iso 

CALL VFCTOR ( V02,X{ ?> ,Y{ 7) ,7. (?) *X( 4) ,Y(4) ,Z(4) ) SHFR?140 

CALL WFCTPR ( V17.XM ),Y<1N7U ) ,XI?) ,Yl?),7 (?) ) SHFR7170 

CALL WFCTPR ( V41 f X(4) , Y( A > t Z( 4> f X( ||,Yl|),/ll) ) SHFR?1R0 

CALL cross (vnj,vn?,n) shfr?]9o 

ARFA=n.S4V01( i )*vn?( 4 )*n( A ) SHFR?? 00 

£******** *************************************************** ************ 5 HFR ??10 
C FORM TRANSFORMATION MATRIX tf SHFR???n 

f ********************************************************* ************ # ^j;j_(p R 7P) 30 

HH=DDT ( V 1 ? * D ) SHFR?? 40 

HP 10 J=] ,3 SHFR?? 50 

10 VP1?{ I> = ( VI? u n J4V17I 4 ) SHFR?? 40 

VPl ?(4)=|>S0R1 I VP1 ? ( 1 )*VP1?( 1 )+VPl ? (? )*VP] ? (? )+VP] ?(3 )*VP1? ( 3 ) ) SHFR ? ?70 

nn ?n j = i ,3 shfr??bo 

?0 TFMtl )=VP1?M I/VP17I4) SHFR??90 

CALL CROSS( 0,TF ,TF( 1,7) ) SHFR73O0 

C *********************************************************** ************5j_ifR? 31 0 

C CPMPHTF FI.FMFNT CPRNFR CnOROINAlFS IM LOCAL AXFS SYSTFM SHFR?3?0 

C ********************************************************************* **$HFR ? 330 


XI =0.0 
Y 1 = 0 . 0 
X?=VP1?( 4) 

Y?=n.n 

X 3 =nnTi tf ,vni »*wnn 4 j 
y?=opt( tf (i,?j ,vm )*vr»i (4 ) 

Yt=-nnT( TF ,V41 )*l/4|| 4 ) 
Yis-nnil TF(1,? ),V41 ) *1/4 ) (4) 
XL=0 .S*( X7-X1+X3-X4 ) 

Yl. = 0, S*fY3+Y4 ) 

X3 4= X3 — Y3* X4 / Y4 
XZ,?=X4-X?+(X7-X3)*Y4/Y? 


SHFR7340 
SHFR? 350 
SHFR7360 
SHFR? 370 
SHFR73P0 
SHFR 7 390 
SHFR? 400 
SHFR? 4 1 0 
SHFR?4?0 
SHFR? 430 
SHFR7440 
SHFR74S0 


IF(Y3. LT. . 01. PR. Y4. 1.T. .0).nR.X34.LT. .01. PR. X4?.f,T.. 01) GP TP 7004 SHFR7440 
OP TP 47 SHFR? 470 

?00 4 WR 1 TF (IW.70O7) MK SHFP7480 

STOP SHFR? 490 

C *********** *********************************************** ********* ****^HFR7 SOO 

C 1FST FPR PARALI.FI. S I OF S SHFR7SIO 

C ********************************************************************* ## SHFR ? 5?0 
S 7 A 1 =nARS M Y 3 - Y 4 )/( X 3 - X 41 ) SHFR 7430 

A ? = OARS ( Y 4 *( X 3 - X ? )- Y 3 * X 4 ) /( X 4 *( X 3 - X ?)+ Y 4 * Y 3 ) SHFR ? S 4 p 

IF { AI , LF .. 01 . Awn . rt ?. LF,.nn op to 4 p shfr ? S 5 o 

TF ( At .LF ..01 ) GP m 30 SHFR 7 S 40 

IF ( A 7 . LF ..01 ) GO TP SHFR 7 S 70 

GD TP 4 4 SHFR ? SR (1 

0*#^*#****#** *********************************************************** j^hfR? 590 

C CASF 9HFM S 1 OF S 1 AMO 3 AR F PARALI.FI. SHFR7400 

G*** ******* ************* ************************** ******************* ***5; 4 J a 
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30 

YP=X?*Y3*Y4/( Y3*X4-Y4*( X3-X? )) 

SHFR?ft?0 


P 1 = YP-Y 1 

SHFR?ft30 


p?=yp-y? 

SHFR?640 


P3=YP-Y3 

SHF R? 650 


P^=YP-Y4 

S HF R? ftftO 


XP=X?*Y3*X4/( Y3*X4-Y4* f X 3- X ? > > 

SHFR?ft70 


A A =( X?-XP) /YP 

SHFR?ftHO 


r.r.= ( xi-xp ) /yp 

SHFP?ft90 


Hsp 1 *p?*ARFA/( P3*P4*?.0*G> 

SHFR? 7 00 


h=h+h=m aa*aa + AA*cc+r.c*rc »/( 1 .5*1 1 .O+GG) 1 

SHF R? 7 10 


r,n tp 4ft 

SHFR? 7? 0 

(^***** *************************** *********************** 

****************5HFR?730 

c 

-r.ASF WHFM SinFS ? AMP 4 ARF PARALI.FI. 

SHFR? 740 

f********************** ******************************** >!e****************SHFR?750 

35 

nn=-0.5*{ X4/Y4 + I X3-X? ) /Y3 » 

SHFR? 7 ftO 


X0=:X4-(X3-X4)*Y4/( Y3-Y4 ) 

SHFR? 770 


An = i .n/nsoRTt l .n+nn*nn) 

SHFR?7fl0 


pi = ( xn-xi — Yi «nn)*AP 

SHFR? 790 


p ?={ xn-x?-Y?*nn)*An 

SHFR? ROO 


p?= fxn-x3-Y3^nn)*An 

SHFR? H 1 0 


P4=( xo-x4-Y4*nn j *ap 

S H F R? R? 0 


rr= if xo-x4 )*nn+Y4 ) / ( xn-x4-Y4*nn) 

SHFR? R30 


H=Pl*P?*ARFA/( P3*P4*? ,0*G) 

SHFR? R40 


h=h+m# f pR*RR+Rn*nn+nn*nn i/ii.shi .o+gg j i 

SHFR?R50 


on to 4ft 

SHFR? RftO 


f* £*£$***$£<«******** *******s***:5cafc#>( t ** ; $c*£ J } : * : £:!::$ c ****7! : *<:#:i:«***fc***$***< t SHFR?H70 


C PARAl.l.Fl.PGRAM CASF SHFR?RRO 

(;*£**** *****$«*******$****$* £**$$****# ££*«$£#**£*$*«#£$ tf$**fc*******S*>0^*SHFR?H9O 
40 Pl=l.n S H F R? 900 

P?=1.0 SHF R ? 9 ] 0 

P3=l.O SHFR?9?0 

P4=1.P SHFR7930 

nn=-n.5*i X4 /y4+( x3-x? ) /Y3+i Y3-Y4 > /( X3-X4) ) shfr?94o 

h=o.s*arfa*m ,o+?.n*nn*nn/( i.p+gg) ) /g shfr?950 

GO TO 4ft SHFR?9ft(l 

f$t$*fr*** *#*##*£ ***$******4*£#££$ *£*£*<!«#*£*$$###$❖***#**$*£*#$:&*#£**$*$$ HFR?970 

r, r.ASF WHFM NO PARAIJ.FI. SinFS ARF PRFSFMT SHFP?9R0 

f ******$****< 1 $ ***** ***** *££=4:$* ****** ** **** ********* SHF R 7990 


45 xns:X4-( X3-X4 )*Y*/( Y3-Y4 ) 

XP=X?*X4*Y3/( Y3*X4-Y4* ( X3-X?) ) 

YP=X?*Y3*Y4/( y3*X4-Y4*( X3-X? ) ) 

ms^nsoRi i ( xn-xp »* ( xo-xp ) +yp#yp ) 

nn=( xo-xp) /yp 

pi = YP*t xn-xi-Yl*nn ) /ni s 

p?=yp*( xn-x?-Y?*nni/ms 
p?=yp*i yn-x^-Y3-nn ) / m s 
p4 = yp*( xn-x4-Y4#nn ) /n i S 
r.r=ni s/pi -im 
RR=P I S/P4-CC 
AA=njs/P?-nn 

F = I AA+RR + I AA**3+RH**3 ) /I .5+0.?*( A A*# 5 + HB#* 5 ) ) * Pt. f IG ( P AR S ( A A + RR ) ) 
i +(cr.+nn+ icr**3+np**?»/] # 5+n.?*«cc**5+im**5) )*DLn<;(nAKStcr.+nni ) 
?-( RR+r.C + { rh** 5 + CC**3 ) /I .5 + 0. ?*( RR**S+CC**5 ) ) #0 1.PG ( P AR S I R R+C C I 1 
?- (PO+AA+I nn**3+AA**3 ) / I *5 + 0.?* <nr>**5 + AA**5 ) J *P|.PG( PARS ( 01)+ A A ) ) 

4+n.i *i ia A#AA- rx*cr. )*( RR**3-i>n**3 ) + ( RR#RR-ni)*m>)* ( AA**3-rx**3 > ) 

R-0.?* ft AA-r,r. )*( RR**4-PP**4)+ (MR-01)) * ( AA**4-CC**M ) 

F=F*PI *P?#P3*P4*n„S/( m s*ni s ) 

H=n.5*Pl*P?$< ARFA + 4 # 0*( F- ARF A/1. 5) / I l.P+GG) )/ ( P3*P4*G) 


SHFR300P 
SHFR3010 
SHFR 30? 0 
SHFR3030 
SHFR 3040 
SHFR 3050 
SHFR 30ft0 
SHFR 307 0 
SHFR30HO 
SHFR 3090 
SHFR 3 l 00 
SHFR 3110 
SHFR 3 1 ?() 
SHFR 31 30 
SHFR 3 140 
SHFR 3 l 50 
SHFR3160 
SHFR 31 70 
SHFR31 HO 
SHFR 3]9() 


C **** *******.****** ******* ******* 4 * ******** ******************** **********£ H F P 3? 00 


r. nrvFi.np itwn shffnfss matrix 


SHFR 3? 10 
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C*** ********************************** ************** ******************$ H F R 37 7 0 


46 0Fl?=0SORT (X3*X3+Y3*Y?) 

DF24=nsORT( <X4-X7 )*( X4-X?)+Y4*Y4 ) 

uil)=x?/nFP 

l If 7) ={ X4-X?) /DF74 
vr i )=Y?/nFi? 

V( ?)=Y4/0F74 
on 47 1=3,4 
U( 1 1 =ll| 1-7 ) 

47 V ( T )=Vf I-?) 

0( 1 )=-X?*Y4*0F 13*0.5/{ X4*Y3-X3*Y4 ) 

0 ( 7 ) = X?*Y?*nF?4*0. 5 / (X4*Y3-X3*Y4-X?*< Y3-Y4 ) ) 
0( 3)=-0( 1 ) 

0(4 )=-n I 7 ] 
nn inn i = 1 ,4 
nn mo j«i,t 

01,1= Q{ 1 )#P( ) *0. 5/H 

on i«^o L — 1 * 3 

TTI L )=TFI L *l»*m T )+TFll,2)*V( 1 j 
150 TJ(L)=II(,0*TF(L,1 )+V(.|)*TF (|. t ?) 
nn i*o i. = i *i 
nn i*n nn= i , 3 
n=3*( i-n+i. 

Jl=3*fJ-1 )+NN 

1*0 s Ult.ll ) = T U L ) *TJ( NN ) *0 1 ,1 
100 COM! I Ml IF 

nn iso i.=i,i? 
on iro m=l,i? 

1*0 S€ L >=SI M *L ) 


SHFR 3? 30 
SHFR 3740 
SHFR3750 
SHFR 3? *0 
SHF R 3 ? 70 
SHFR 37 AO 
SHFR3790 
SHFR33O0 
SHFP3310 
SHFR3370 
SHFR3330 
SHFP3340 
SHFP3350 
SHFR 33*0 
SHFR3370 
SHFP33HO 
SHFK33S0 
SHFR 3400 
SHFR3410 
SHFR 3470 
SHFR 3430 
SHFR 3440 
SHFR 3450 
SHFR 34*0 
SHFR 3470 
SHFR34R0 
SHFR 34^0 
SHFR3500 


£****************************************************** *****************$HFR 3510 
C OFVFI.PP IIMTT FORCF (STRFSS) RFCPVFRY MATRIX SHFR3570 


C *********************************************************************** SHFR 3530 


on 300 1=1 ,4 
1 1 = C T — 1 ) *3 
SM=-OI I 1*0. 5/H 

SI ( If 11+] ) = SN* mu )*1F( 1* 1 )+V(|)*TF( 1,21 ) 

ST( 1 ,11 + 7 >=SN*( IM Il*TEl 2,1 )+v( 1»* FFI 7,7) ) 

300 Slll.n+3 )a$N«(ll( I )*1F(3tD+V( f )* T F f 3 , 7 ) 1 
on 400 3 = 1 ,1? 

stj=st n , j) 

Sr(7,.l) = ST.I*Pl/P7 
SI (?,.l)=SU*i>l *P7/ I P?*P? ) 

STl 4,31=STJ*Pl«P?/t P4*P4 ) 

400 ST f 1 ,J)=SU*P7/P1 


SHFR3540 
SHFR 3550 
SHFR 3560 
SHFR 3570 
SHFR 3 5 BO 
SHFR 3590 
SHFR3600 
SHFR 3ft 1 0 
SHFR 3670 
SHFR 36 30 
SHFR 3640 
SHFR 3650 


r> ************* **************************************************** ******SHFR 3660 

c GRAVITY AND J M F R T 1 A 1.PA0S SHF«3670 

q********** ********************************************************** ***SHFR 36 RO 


Al=0.5*X7*-Y4 

SHFR36V0 

A7 = 0. I '*X7*Y3 

SHFR 3700 

A?=ARFA-A1 

SHFR3710 

A4=ARFA~A? 

SHFR3770 

VO T = RH0/A ,0 

SHFR 3730 

FI=( A4+AI+A7 l*WTT 

SHFR3740 

F7=(A1+A7+A?)*WTT 

SHFR 3750 

F3 = { A7 + A3 + A4 >£WTT 

SHFR 3760 

F4= 1 A3 + A4 + A1 )*WTT 

SHFR 3770 

00 450 I =1 ,3 

SHFR37HO 

XM| 1 } = F 1 

SHFR37VO 

XM( 1+3 ) = F? 

SHFR3R0O 

XMI I + 6 ) =F ? 

SHFR 3ft 10 


/O 

^1 

CH 



XM( 1+9 ) = FA 

on asp i.= i,a 

HH = FMin.( 1 ,1. ) 
p (I ,U=HH*F1 
P. ( 1 +3 ,L ) = HH*F 7 
P (J + ft,U=HH*F? 
isn P ( 1 + 9, L ) sHH*F A 
nn a*p i=i,4 
nn 4 ao r =i ,a 
AftO TKl,U=n.O 
PFTIIRM 

7P07 FORMAT (] X, «PNF of 7HF 1N7FRIPR ANGLFS FOR SHF AP PANF*,' *J0. = ' * 
l IS GRFATFR THAN IPO OFGRFFS.M 
fnh 


SHFR3fl?0 
SHFR3R30 
SHFR3H40 
SNFR3B50 
SHFR3RftO 
SHFR3H70 
SHFR3HRP 
SHFR3R90 
SHFR3900 
SHFR3910 
SHFR39?0 
I 5 • 1 SHFR3930 
SHFR39A0 
SHFR3950 


SURRHiniMF nPANFLt APl.n, ANFW,|.HAn*MIIMOV) SHFR 39ft0 

C ;********^******* *#**************#******$ $**4**3*****$$ ##**#«*a**4**$##ShFR 39 70 

f nFSIGM PF SHFAR PANFI. FLFMFMTS SHFR39R0 

p 4**44* A 44**444*44***4 ***£44*444£*4**#4 4#4* 4 44444444444 4 #*:{:>tt444:*4*4jf:*44XtSHFR3990 
H T M F M S I PM Ani.nfMIJMHV ) f AMFW I M1IMOV ) , L n AO ( WUMMV ) SHFR4000 

COMMON/ JIINK /.II INI lft > *1. T f I.H f |. tS(i( 77 )*II)VAR, IFX.FRC*ARFA,XINFRT f SHFP4010 

1 SHFAR t SHf.R, JIINH747 I $HFR40?0 

^444444444444* 4*4* 444**4 44* 4 4**4*444444444 4 444444 4 444444444444444*4444. 44SHFR40 30 

C r.HFCK SHFAR STKFSS SHFR4P40 

£*4 *4* 44*4*4*4*4* *4444**4 *4 4*4*44*44**4 *4**44*44**##*444#4444444444*A*4*SHFR40 50 
SHFI.WsARSt SG( 8 ) ) SHFR4060 

RMAX = SHF!.W/( SHFAR4ARFA) SHFR4070 

C ** * ***** 4* * *** ******4* * **** *4**4 4 *4 * 4*4 * 4 * *4 44 * * *4444* * 444 4 44 4 4 4 4*44 * * 4 SHF R 4 OR 0 

r r.HFCK RUCKLING SHFR4n90. 

£4444*444*4*4 ***4*44 ** 4* *44444444*4*44444444444444444444444444444444444*5HFR 4 100 
TF ( SHCR .LF .n.n) GO TP 4 S H F R 4 1 10 

P=SHFl.H/( SHCR*XINFRT ) SHFR 4 170 

R = R**n. 3^3333 SHFP.4130 

3 IF (RMAX.I.T.R) PMAX = R SHFR4140 

r4*4444*4444*4*4444AA44A*4**44*4A4A4444444A444A*444444444444*4444444*444SHFR4l50 
C FM| f.Y STRFSSFO PF S TGN SHFR4I60 

£4444444 *444*4 ** 44 * 44 * 4 * 444 * 44 * 4444 * 444444 ** 4444 ** 4444444444 * 44444 44 **4*SHFP4 I 70 

4 A A = RMAX*AP1. D ( I DVAR ) SHFR41R0 

IF( AA.I.T .ANfWt II1VAR ) ) GP Tfl ftp SHFR419U 

AMFHf TOVAR J=AA SHFPA700 

I.PAn( IOVAR)=L S HFR 4? 1 f) 

AO C PM T I Ml IF SHFP4770 

RFTIIRM SHFR A? 30 

F Nn SHFR 4740 
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SUBRnilTIMF. SHFJ.L I A , M TOT ) SHFL 0000 

£***<: *#*:**£* *$**«*********$******$***$*«$*«£*£#*£*« $*£*£*****:*£*$* SHFI. OHIO 

c PLATF/SHF 1 .L FLFMpNTS SHFI .0070 

Jr «){.**^ 1 ik** S } e *****<:4«**!!c^*****^! , ^*>>«*^!!t*X**#«^#=fr4 **«<=** *#****#******<=««SHFl 0030 
niHFMSIOM A(MTflT) SHFI. 0040 

COMMON /F I. PAR / MPAP, ( J A ) ,NtlMNP ,MRANn,MFI.TYP,Nl ,N?,N3»N4,NS ,H11 7 t NFOSHFI 0050 
. ,MHHFL,Mn«nV.MI f M? f «3,LL,LB*MF0B,WBLPCK SHFL 0060 

CnMMOM/,HlNK/JIIN ( lM,LTtLH»LfSG(70) , S I R ( 7 ) * 1 OV 1 1 FX f FRC , 1HI CK , SHFI 0070 

1 XIMFRTtTEM.f.PMP.SHFARtRF f A , % HJN 1 ( 7*5 ) SHFLOOHO 

common/iinits/ir* IW, IP, ii,i?,i?,tp* 19 , i in t m v m? shfi 0090 

Nil IMF = WPARt?) SHfH.0100 

KPOFsMPAR (9) SHFI Olio 

F F ( MPAR( l J .F0,0 I <-n TP 500 SHFI.0170 

NI1MMA T = NPAR I 3 ) SHFI 0130 

Mi|MTC=NPARl A ) SHFL0140 

N6=N5 + N1IMMp SHFI 0150 

M7 = MA+Ml|MM A T SHFI. 01 60 

NR = M7+N|1MMAT shfi 0170 

on rn u*7i,KnnF shfi. giro 

£*****************$*$ ***)****:£$* *#$**#*$*****#***$ 0190 

C ISOTRnPIC PI. ATF/SHFI.L FLFMFMTS SHFI .0700 

$***:(:£#$$*$*##* $***$* 4 S *$*£*#*#**** SHFI. 0 ? 1 0 
1 N 9 = MR 4 .NIJMMAT*M| 1 MTn *7 SHFI. 0 ? 70 

MM=Nq-MTP 7 SHFI. 0730 

[F(MM.f;r* 0 ) CALI. FRRPK(MM) SHFL 07 40 

CALI. PLATF 1 I A (Ml J.AINU .AIN?) ,A(N 3 ) , A ( N 4 ) , A I N 5 ) , A l N 6 ) , A I M 7 > . A { NR ) , SHFI OP 50 
1 MHMnV*NIIMNP,NIIMF ,N||MMAT fNIIMTC ,KnnF ) SHFI. 07 M) 

RFTHRN SHFI. 0770 

t**#*****'****#**###**##*###*#*#*# *****>Ji#*>JciS:}<$**#**$$*£*£#**:C:*S**$$ 4 #*#**SHFL 07 RO 
C PRTHm RHP If. PI. ATF/SHFI.L FLFMFMTS SHFI 0790 


7 CALL NOFI.FM IMPAR 11 J.KPDF.IW) 

RFTIIRM 

900 HRTIFIIW* 7007 ) KOOF 

OP ROO MM = 1,M||MF 

CAI.L SIR SC( A I Ml } ,A(N1 ) t A (M3) , MFO , Nl IMIW , 1. 1. * L R , I B • Q > 
WRITFt iu/,7001 ) MM .THICK 
7FTA=RFTA/57. 7957795 
CR = CnS( TFT A ) 

SR=SIM{ tfta ) 

CSR=CR*SR 

cr=c r*cr 

SR=$R*SO 
nn ROO I. = LT t I.H 
IFtL.OT.l.T) WRITFt 19,7004 ) 

CALL ST RSC { a (M] ) • A ( Ml J , A (N3 ) , Mp 0 , NIIMPV . LI. . I.H • I H * 1 > 
I Ft RF TA.MF .0 . ) OP TP 70 

on ?o ] = i ,r 

30 STM T > = sr,( T ) 

OP TP 40 

70 00 to 1 = 1 t 4 ,3 

Cl =S0( I )«f.R+SO( 1 + 1 J4SR 
C?=? ,0*Sr,{ 1+7 »*CSR 


SHFI 0310 
SHFI. 0370 
SHFI 0330 
SHFI. 0340 
SHFI 0350 
SHFI. 0360 
SHFI. 0370 
SHFI. 0380 
SHFI 0390 
SHFI. 0400 
SHFI 0410 
SHFL 0470 
SHFI. 0430 
SHFL 0440 
SHFI 0450 
SHFL 0460 
SHFI 0470 
SHFI. 04 RO 
SHFI 0490 
SHFL 0500 
SHFI. 05 10 
SHFL 0570 


sir,tn= C1+C.7 
STO( 1 + ] UC1-C? 

in sir, u+?)= i -so 1 1 )+sot i + i n*csn+sr;< i + ?)*( ert-SR) 

40 HR ITFt fu ,7003 I I. , t S 1 0 I I ) , I = l . 6 I 
OP TP ( 3.4 I, KOOF 


SHFI 0530 
SHFL 0540 
SHFI 0550 
SHFL 0560 
SHFI 0570 


C tr* **£ * **** * * ******** *r *** * ft ft ft ft* ft ft ft 


rftftftftft ftftftftftftftftftftftftftftftftftftftftftftftSHFLORRO 


C 0FS10M PF 1 SnTRPPl C PI.A1F/SMF1.I. FLFMFMTS 


SHFI 05^0 


S L ’b 



******$******** ******* 
? CALL nSHFLKMMl ) ♦ A ( M? 
r,n Tn «nn 

C****** ***********< f * ******** 

r. pfsign nF nRTunTRPPin 

f ** ****** *********** ** ****** 

^ r.OMT 1MIIF 

nnn comtiniif 

P.F TURN 

f*************************** 

7001 FFIRM A T( 1 X, I 7 » F= 1 A • A ) 
?nn? FPRMA7 ( //40H ANALYSIS 
1 U3H FI.FMFMT 

? R f. F s // 

3 inn niimhfr 

4 NX Y 

?nn3 FORMA T( l H+ ,?nx, J 7 ,AF 1 4 
70P4 F PR MA 7 ( / ) 

FNP 


************** ******t***********************SHFL f 
I ,A<M3 ) t NII«nV ) shfi r 

SHF. ( 

******************************************** SHFI ( 
SHF I.L FI.FMFMTS SHFLf 

* ****************************** ****** ** *****$ HF I. ( 

S H FL ( 
SHFI. f 
SHFLf 

********************************************SHFI. f 

SHFLf 

nF PLA7F/SHFI.L FLFMFNTS ,CPNSTRN COPE =,I9//SHFI.f 

FLFHFMT I.PAI) / MEMRRANF FPSHFLf 

RFNOIMG/THT S7 I W(; MOMENTS / / SHFI.f 

7HICKNFSS r.flMn N XX NYY SHFLf 

MXX MYY MXY / ) SHFI ( 

.4) SHFI.f 

SHFLf 

SHFI.f 
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I 

I 


SURROin IMF PL A 1 F 1 « IIW 1 , I D, X , Y , 7 , T , W T , N TC , PMA T , NUMOV ,N|)MNP , NOME , SHFI. 0790 

1 NIIMMAT,NllMTC.KPnF) SHFI.OROO 


f ***$*$$**$*£****,>£ **£**$*$**«$ $$****£*****##**#$**:(.•*$*$#*££*$ ***£*SHF| OR 10 

C ISnTRDPIC PLATF/SMFLI. FLFMFNTS - C.A.FFUPPA'S SHFLL FLFMEMT SHFL0870 

r MP1F M) PROGRAM TMCLfinFS TFMP. GRAIMFNT I.PAn VECTORS AMO S1RFSSESSHFI. 0830 

C (?) PROGRAM yRITTFN FPR GFMFKAt. PRlHnTRPPlC MAT, PROPER T I FSHFL OR AO 

C TMFSF ARF MPT HSFO ]M THF PRFSFMT PROGRAM SHFI.0R50 

fjfr******^*.,*** $********:*$$*«****£***£$**£#*#*##$*«£* + OR 60 


IMPLICIT RFAL^B (A-H.P-Z) 

RFA1_*A MWT,X,Y,7,T,WT,PMAT,FRC,FA,F5,Fft,RFT 

OIHFMSTPM UWTCMUMOV) , IfllNtlMMP, ft) , x INIIMNP ) , Y(NI)MMP) , Z (NUMNP ) , 
1 T { NlfMMp I ,WT( MMMMAT ) ,MTC( MUMMAT) ,PMAT( NIJMTC,7,NHMMATI 
COMMOM/JIIMK/ 

1 R1( 30) ,P?( 30) ,ST1( ft) * S T 7 ( ft),TP(3,3),XXl5),YYt5),7Z(5), 

7 CM(3,?),AI_FM?) * P HP ,NFN,NTPI , JX (A ) , IF (A) .PRFSS.RFFT ,TEMP, 

3 OTFMP # FMML( 5, A ) ,FF( 1?) 

CPMMpN/FM/LM(?4l,S(3P.30,?),PI?A,A,3),XM|?M,STIft,30,?l,ll(ft 
1 fmi 

COMMOM/UNITS/IR, lw« IP, II, I?, I?. 18, 19, lift* lilt II? 


SHFI.0R70 
SHFLOBRO 
SHFt 0890 
SHFL 0900 
SHFI 0910 
S HFl. 09? 0 
SHFI 0930 
SHFL09A0 
A, ? ) , SHFI. 0950 
SHFL 0960 
SHFI. 0970 


0** +,***$** *$£$$*** $$$»}< ********** *=****$$$**$** $****«#** ^s***#*****^^!. 09 80 


C CONTROL INFORMATION SHFI 0990 


Mila? SHFL 1010 

MV-? SHFI. in?o 

MMal SHFI. 1030 

MS = ft SHFI. 10A0 

M I = A SHFI 1050 

I FX=3 SHFLlOftO 

OTFMP = 0. SHFI. 1070 

WR ITF( 1W .7000} MIIMF f NIIMMAT ,NIIMTC,KOnF SHF1.10R0 


C RFAD AMO PRINT OF MATERIAL PROPFRT 

£*#***$************* *****«*****:***$>>***=(: 
WR 1TF( 1 W ,?00l I 
no ]0 M=) .WlfMMAT 
RFAn{ IR. 1000) N f M T C ( M ) , W T ( N ) 
IF(MTCIN) ,F0.0) N T C ( N I = ) 

WRITFt I W , ? 00? ) M.MTC(M) V UT(M) 
N7=NTC IN) 
nn u i = i , mt 

PFAO( 1R ,] 00? ) I PMATI 1 , «l f N ) « J= ) , 7 ) 

I F( PMAT ( 1 ,ft,M) ,I.F .0. ) PMAT( 1 ,ft,N ) = 
IF! PMATM ,7,N).LF.O, ) PMA T II ,7,W} = 
11 COMT I Ml IF 

WRTTFI I W, 7009) I PMAT ( l , J ,N ) , ,1= 1 ,7) 
IF(MT.GT.ll WRITFt Iw,?OOR ) ( (PMATt 
10 CPMTJNflF 
C #****$*$* ****£*<< ****£**** * #$$$£***:* **#4: 

C REAP AMO PPIMT PF FI.FMFN1 I.PAIl MIIL 

C *********$***£$*$$***«**£*$*****£ ***#>!:* 

WRMFI J|J,?pPft| 

RFADI ]R, 100?) ( IFMIII.I1 ,.)) ,.l=l ,A), I 
UR ITF 1 1 W, ?0P7 )(,!*( FMMI. ( I, J )*! = }. 6) 

r : r f a r> amp print p f flfmfnt oata 

C * * ** 3 ****** ** * * *** * * 4:*** ***** * ** * *** $ 


****************************** **$f-lFI 1090 
TFS SHFL1100 

************************** ******SHFI_ 1110 

SHFL 1 1 ?0 
SHFL 1130 
SHFL 11 AO 
SHFL 1150 
SHFLllftO 
SHFL 1 170 
SHFL ilflO 
SHFL 1 190 
SHFL 17 00 
SHFI I? 10 
SHFL 1??0 
SHFI l?30 
SHFL 1? Aft 
SHFI I?50 

************** ******************SHFL 1760 
TIPLIFKS SHFI 1770 

********************************SHFL1?R0 

SHFL 1790 

=1,5) SHFL l 300 

J=1 , A ) SHFI 1310 

********************************SHp|. 13X) 

SHFI 1 330 

********************************SHFI, 1 3 AO 


PMATI 1 , 5 , N ) 

PMATI f ,5,M)*0.577 


1 , .1 , N ) ,.1 = 1,7) ,1 = 7, NT) 


WR17F(IW,?pn?) 

M=1 

100 RFAOMP, I COD IFL, IF, IMA1, INC, I OV, PRF SS , RFF f • FRC * HF TA 
TFI IFI. .LT.N ) GO TP ftPO 


SHFI 1 350 
SHFL 1360 
SHFI 1370 
SHFL 1 3R0 
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IFUMC.FO.O) 1 Mf. = 1 

SHFI 1390 


1 F ( FRC .Ffl.M FRC = 1 . 

SHFL 1400 


1 F ( 1MA1 .FO.O) | M A T= 1 

SHFI 1410 


MFM=A 

SHFL 1 4? 0 


MO=?A 

SHFI. 1430 


MTRJs/i 

SHFL 1440 


TFT IF (A l.NF.O) GO TP Uh 

.SHFL 1450 


MFM=S 

SHFL 1 4 60 


M0=1B 

SHFI. 1470 


WTR 1 = 1 

SHFL 1 4 HO 


1 X ( A ) =0 

SHFI. 1490 

AA 

RHn=UT( 1 M A T 1 

SHFL 1500 


BF 1 = BF 1 A 

SHFI 1510 


KK = I Mf, *( I FI. -M ) 

SHFL 1 5? 0 


nn AS I = 1 t M F N 

SHFI 1530 

AS 

1X( n = lFU 1-KK 

SHFL 1540 


nn son mfi.= n » 1 Ft. 

SHFL 1550 


TFMprO. 

SHFL 1540 


nn ao i=i,mfm 

SHFI. 1 570 


.1= I X( I ) 

SHFL 1 5 HO 


TFMP=1FMP+T U ) 

SHFI. 1590 


XX{ I ) = X( .1) 

SHFL 1400 


YY( I ) = Y ( J ) 

SHFI 1410 

ah 

7 7. ( 1 1 = 7 ( . 1 1 

SHFL 1 4? 0 


ifmp=tfmp/mfm 

SHFI 1430 


TF1MFM.MF.A1 C,n TO 75 

SHFL 1440 


XX(5)=0,?S*(XXfl) + XXI?l+XXf3)+XXlAM 

SHFI. 1 450 


YYl 5 )=n.?S*( YY( 1 l+YYl ?)+YY( 3 ) + Y Y ( A ) ) 

SHFL 1440 


77(5)=0.?5*(77f1)+Z7(?)+7Z(3)+Z71A)} 

SHFI. 1470 

f, ****************************************** *****************************SHFL14R0 

c 

- J Ml FR PP|_ A 1 F MA1FRIAL PRnPFRTTFS FOR AVFRAGF FLFMFN1 7FMPFRAHIRF 

SHFI. 1490 

£************************************ *****************#*****************SHFL 1700 

75 

CALL 1M1FRP l PMAlf FF ,MIJMTC,MUMMA1 , 7 »* <NTC ( I MAT ) , I MAT, TFMP ) 

SHFI. 1710 


TFMP=TFMP-RFFT 

SHFL 1770 


AI.FA1 1 )=FF(3) 

SHFI 1730 


AI.FA1 ? 1 = FF ( 3 ) 

SHFL 1740 


AI.F A f ? ) =0. 

SHFI 1750 


Cnw = FF{ 1 » / ( 1 .n-FFl ? )*FFC ? ) > 

SH FLU 7 40 


c m ( i , i ) =c nw 

SHFI 1770 


CM( l ,? )=CflN*FF( ? ) 

SHFL 1 7 HO 


r.Mi?,i jsr.Mii t?) 

SHFI 1790 


C M ( 7 ,7 ) = r.PM 

SHFL 1HOO 


CM13,3)=FF(1 1*0. 5/1 1 . 0 + F F ( ? ) ) 

SHFI L 8 1 0 


CM f 1 ,3 ) =0 . 

SHFL 1 R? 0 


CM! ?,3)=n. 

SHFI ]R30 


C M ( 3,1 )=n. 

SHFL 1 840 


CM( ?,? )=0. 

SHFI 1 H 50 


FA = FF( A ) 

SHFL J H 40 


FS-FF (5 j 

SHFI 1870 


F4 = F F f A) 

SHFI. IMHO 


f**$* ******************* ************ ***** ** ******* ******* ******* ******* *5>HF| 1 R90 

C FORM SHFI.L fil.nRAl. STIFFNFSS MATRIX, MASS M A TR I X , S TR F S S /O 1 SPL ACFMFNTSHFL 1 900 

C FnRM SHFLI. FI.FMFMT M a T P T f. F S SHFI 1910 

C ***** ****************************************** **** *#** ****** **********SHFI. 197 0 

ARFA=0.0 SHFI 1 9 HO 

r.Al.l. OTSHFU ARFA.NO) SHFL 1940 

MM=Mn*A'n*M|t SHFI 1950 

CALL RFAPAM( S , S , 3 n , 30 , ? , NO , MO , Mil , NN ) SHFLlQfrO 

MM = MS*Mn*M|l SHFI 1970 

CALL PFAPAMJ SI ,ST ,5 ,S0,? ,MS,Mn,M(l,MM ) SHFI. 1980 


8 Z‘b 



MM=M0*4*MV 

CALL RFAPANI P f P,24,4,3,ND,4,NV,MN ) 

son cnNiiMUF 

UWT( ir>V)=MWT( inv ) + APF A*RHP*FRC 


SHFL 1990 
SHFL 7 000 

shfi ?mo 

SHFL7070 


(;**** *****$**** a**#*************#*****************-:#****:*********** $*«!«**SHFL 7030 

C FORM LM ARRAY AND COMPUTE RAMPHIDTH SHFL7040 

£***# ***##**#£**,*****:'■** .*£**$*****«*$ #&#########*#* *##£################# $H FI 7050 


nn 4in I = 1 ,nfm 
j=**I-* 

M= 1 X( i ) 
np 41 n K=l*4 
41 n I.M( ,1 + K )= 1 P{ M «K ) 

CALL CAt_RAN(NniF,LM,StP,ST. T 1 ,NII,NV ,«S ,N 0 ,NW f I nv, I FX • FRC ) 
WR ITF| 1 P ) MI ,F 4 ,F 5 ,F 4 ,PF T 

WR11FI )W« 7PP4) NFL ♦ I X, I MAT, I 0V , PR F S S ♦ R F F 1 , FRC , R F T A , ND I F 
nn 450 mm= \ ,mfn 

450 I XI MM) = IX (MM) + INC 
SOD CnWTINIJF 
N= I FI. + 1 

1F( n.lf.njimf » go TP inn 

RFTIIRM 

<500 WR ITF( iw ,?nn5 ) m 
STOP 

innn fprmat( 715 ,F in.n ) 

lOni FORMAT ( PI5,4F 10.0) 

ino? format ( ^Fin.n) 
inn* format 1 7Fin.m 
7 nnn format (5phit him p l 


ATF/SHFLL 


flemfnts. 


) 


SHFL 7 0 f.0 
SHFI 7070 
SHFL70R0 
SHFI 7090 
SHFL7100 
SHFI 7 ] 10 
SHFI. 7 1 7 0 
SHFI. 7 130 
S H FI. 7 1 40 
SHFI 7150 
SHFL7 1 60 
SHFL7170 
SHFUPlRO 
SHFI.7190 
SHFL 77 00 
SHFI. 77 10 
SHFI.7770 
SHFI. 7730 
SHFL7740 
SHFI 77 50 
// SHFL 77 00 
SHFI 7770 
SHFI. 7? 80 
SHFI. 7790 
SHFL? 300 
SHFL ?310 
P0SHFL7370 

SHFL 7330 

SHFL? 340 
/) SHFL 7 350 
SHFL7 3M) 
SHFL 7 370 


? ??H WIIMRFR OF FLFMFN1S = , J5 / 

3 ?7H NHMPFR OF MATERIALS =. 15 /, 

4 7?H NI1MBFR OF TEMP CAR[)S=, [5/, 

* ?7H COMSTRN C.onF =♦ 15// 

7001 FORMAT ( 74H MATFKIAL PROPFRTY TARIF, // 

1 1 74H MATFRTAI. NIJM OF SPFCIFIC TFMP YOUNGS 

?TSSPMS*S CPFFFT PF / ALl.nwAPLF S1RFSSFS 

3-/ / 117H NHMPFR TFMP WF I GH T MODULUS 

4RATIP THFRM FXPN TFNSIPN COMPRESSION SHF AR 

?nn? FORMAT! 15, I9.F10.5) 

700? FORMAT I /* ?H TH]N PL ATF /SHFLL ELFMFNT OATA, // Rn ELFMFN1 , 37X, 

1 RHMATFR IAL *4X,7HnFS V AR , 4X , ftHNPR MAI. * 4 X , 9HR F FFR ENCF ,5X,7HDFS VAR,SHFL2380 
.RXf4HRFTA ,PX .4 HR AND / SHFI.? 390 

? 7H NHMPFR ,?X,^HNf»nF-I ,2X ./.HNnnF-J, 1 X tfiHNPnF-Kt?X.«>HNOnF-L* SHFL 7 4 00 

? 3X,*HMIIMpFR, 5X,6HNUMRFR,4X,RHPRFSSURF*?X f 1 1HT FMPER {HUR F * SHFL ? 41 0 

4 3 X.RHFR ACTION, lftX ,5HWJ0TH /) SHFL7470 

2004 FOP.MATM5,4 JR, ? I 9, 3X , 4 F 1 7 . 4 ,110) SHFI 7430 

7005 FORMAT ( 19 H‘nCAR 0 FOR F LF MF N T ( , I 5 , 1 4H ) IS IN ERROR., / IX) SHR.7440 

?00fc FORMAT I /30H FI.EMFMT LPAO CASE MIILUPUFRS, // 13H ELEMENT LOAD, SHFL2450 
1 4X,PHPRFSSHRF,5X*7HTHFRMAL.13X t ?HX-,13X,?HY-,13X,2HZ-, / SHFL?4f>0 

7 ]3H CASF NIIMRFR, 17X,7HFFF-FCTS, 3 I 3X , 1 ?HA CCF LFR A T I PN ) , / IX) SHFI 7470 

7007 FORMAT ( fcX , II ,6X ,7F 17 .3 ,3F 1 R .3 ) SHFL 7 4 HO 

POOR FORMAT I 7^X,F10.3 , 1 PF]4.5tOPFln.3,lPH4.S,OP3Fl4.?) SHFI. 7 490 

?009 FORMAT! 1H+,?5X,F10.3, 1PF 14.5 ,ORF 10,3, 1 P F l 4 . 5 , 0P3 F 1 4 . 7 1 SHFL7500 

FMO SHFI 7 510 
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SMRRPUTIMF OTSHFU ARFAA.MP) SHFL7570 

f ** ****** *********** ****** **** ****** ***************** ****** ******* *fcSHFL 7 5 30 


C THIS SimPnilTlNF 

c 
c 
c 
c 
c 

c NPOAL FPRCF VFCTPR Ml IF Tfi P I S TR 1 RU TFD LA TFRAL LPADSHFL7600 

C AMP STRFSS r.PRRFClIPN MATRIX PDF TP 1HFRMAI. STRAINS SHFI.7610 

C flF A SHAI.I. PM 01 1 APR 1 1. A TFN Al. SHFLL FLFMFNT A SSFMBL F P WITH FPIJR FLAT 

C TRIANPLFS PR PF A S I NGL F TRIANGULAR SHFLL FLFMFNT 


EVALUATES 
STIFFNESS MATPTX 

NPP At. FflRCF VFCTPR DUE TP THFRMAL STRAINS 
MASS MATRIX 

STRFSS/PI SPLACFMFN1 TR AN SFPRMA T I PN MATRIX 
IMFMRRANF AMP RFNPTNG) 


SHP.7.540 
SHFI 7550 
SHFL 7 560 
SHFI 7570 
SHFL75BO 
SHFI. 7590 


C si 

c 

C S7 

c 

r, pi 

c 

r p? 

C 

C P3 

c 

C VM 

C S A 1 

C 

r S A 7 

c 

C 711 

c 

C T 7 7 

C 


UNIT STIFFNFSS PROPORTIONAL 
I PI IF TP MFMURANF ACTION) 
UNIT STIFFNFSS PROPORTIONAL 
I PUF TO PFNPI-Mp ACTION) 


TP THICKNESS 


TP ( THICKNESS) **3 


TP THICKNFSS 


UNIT NOPAL FPRCF VFCTPR PRPPPR T 1 PNAI. 

IPIIF TP GRAVITY I.PAPS ANP PDF TP MEAN 1 FMPFR A TUR F 
UNIT NOPAL FPRCF VECTOR ANP IS CONSTANT 
f PI IF TP NORMAL PRFSSURF I.PAPS) 

UNIT NOPAL FPRCF VFCTPR PR PPPR T I UN AL TP (THICKNESS)**? 
(PUF TPTFMPFRATMRF GRAPIFNT ACROSS THICKNFSS) 

MASS MA1RIX PRPPflR T I PN AL TP THICKNFSS 
UNIT STRFSS MATRIX PPPPPRTIPMAL TP THICKNFSS 
(PUF TP MFMRRANF ACTION) 

UNIT STRFSS MATRIX PRPPPPTIPMAI. TP ( TH I CKNF S S ) **3 
(PUF TP RFNPIMG ACTION) 

UNIT STRFSS CORRFCTION VFC1PR PROPORTIONAL TO THICKNFSS 
(PUF TO Mp AN 1FMPFRATHKF PIFFFRFNCF - MEMRR AMF STPFSSES) 
J STRFSS CPRR FC 1 1 ON VFCTPR PRPPPR T I ON AL TP ( TH I CKNF S S ) ** 3 
(PUF TP TFMPFRATURF GRAPIFNT ACROSS THICKNESS) 


SHFL? A? 0 
SHFI. 7630 
SHFL7640 
SHFI 7650 
SHFL266P 
SHFI. 7 670 
SHFL76R0 
PI FFFPENCESHFI 7690 
SHFL7700 
SHFI 7710 
SHFL7 77 0 
SHFI. 7730 
SHFI. 7 7^0 
SHFI 7750 
SHFL 7 760 ■ 
SHFL 7770 
SHFL77RO 
SHFI 7790 
SHF'-? BOO 
SHFI . 7 R 1 0 
SHFL7R7 0 


C************ ********** * ****** * * * * * * ******** * ***************************$hF I.. 7R30 


IMPLICIT R F A I. * B ( A-H.P-7 ) 

COMMON /JUNK/ 

1 RK 30) ,R?{ 3") ,ST1 ( 6) .ST2( 6) ,TP( 3.3) . X(5), Y(5). Z(S). 

7 CM (?,?). ALFA (?) t RHP . NFN , N TR I , I X ( 4 ) , I F ( A ) , PR F S S , R E F T . TEMP , 

3 0TFMP,FM|1l( 5 ,4 ) , FF( 1 7 > 

COMMON/ FM/|.M( ?4)tSU?0t3P).S?(30.3O).Pl(?4,4)»P?(?4,4).P3{74»4), 
1 XM( 74 ) ,SA)( 6.3P) .SA716.30) ,TTH6.4) f TT?(6.4) ,FM1 
COMMON /r.PMPI. / A 13) ,R(3) ,FT(9),STI9,Q) , 11 (9), 17(91 .1319) ,ARFA, 

1 CT( 3 .9) ,SMI( 3) ,RMT( 3 ) ,LPC( 3) ,ICPMP( 4H1) 
niMFMSIPM I PFRMP(4 ) , FMM ( 7570 ) 

FQIIIVALFMCF (FMM.Sl) 

/7. 3.4,]/ 


) GO TP 5 n 


. BO 


PATA IPFPMO 
ug=j # n 
MBs B 

I F( N T R I . F P . 1 
U'G=0, ?R 
M3 =5 

50 DP 150 1=1 
PI { I )=n. 
l bo P7( I ) =o • 

nn im 1=1 ,7570 
151 FMM(I)=0. 

f)** ************************************************************ *********5HFI_30R0 

C C PM PI IT F P I RFC 1 I PN CPSIMF MATRIX TO OF LOCAL FLFMFNT SYSTFM SHFI. 3^70 

f************* *************************************************** *******SHFL 3 OHO 
CAM OPCPS (MTRI ,X,Y.7,Tnj SHFI 3090 

(^***************************** ********* **XV ************************ ******SHFL 3 100 
C THFRMAI. STRESS CPPRFrTtPN MATRIX SHFI. 3110 


SHFI. 7 H4Q 
SHFI.7R50 
SHFL7R60 
SHFI.7B70 
SHFI. 7 8 HO 
SHFI 7890 
SHFL7900 
SHFI. 7910 
SHFL 7 97 0 
SHFI 7930 
SHF'. 7 940 
SHFI. 7950 
SHFL 7 9 BO 
SHFI 7970 
S H FI. 7 9 HO 
SHFI. 7990 
SHFI. 3000 
SHFI 3010 
SHFI. 307 0 
SHFI 3030 
SHFL .3040 
SHFI. 3050 


08 "h 



c ************************************************ *$$**«* ****************$HFL 3170 



m=nTFMP/i?. 

SHFI 3130 


no 160 1=1,3 

SHF1.3140 


CO CM 1 1 , 1 )*AI.FA( n+CM( I t ?)*AI.FA l?)+CM( I ,31*ALFA(3i 

SHFI 3150 


SMT(l) =-CC*TFMP 

SHFL 3160 


RMTIT) =-r.C*nT 

SHFI 3170 


no 160 .1 = 1,4 

SHFL 41 RO 


TU ( I,J) = SMTC I )*FMIJL (7,.») 

SHFI 3190 

160 

TT7( ?+3,.|»=RMT( 1 ) *FMin_| 7,.l) 

SHFL 37 00 

£******** ********:** ***** ***** ******** ****************************** *****$HF| 3? 10 

c 

-LOOP 0VFR THF MTR I TRIANGI.F C n M p p N F M T S 

SHFL 37 7 0 

C ******** *********** **** ******** ****** **** ****** ************************shFI 3730 


nn 7oo nt = i ,ntp I 

SHFL 37 40 


MJ =MT 

SHFI 3750 


M? = IPFRMQ(NT) 

SHFL 37 60 


i.nni )= mi *6-6 

SHFI. 3770 


inr.t?»= m?*6-6 

SHFL 3? RO 


1. Or (31= M 3*6-6 

SHFL 3790 

C ********** ************** ********************************************** * 5 hFL 3300 

C 

-COMPIITF OIRFCTIPN C.nSIMFS nF LOCAL 1RIAM0LF SYSTFM 

SHFI. 3310 

c 

A NO TMF TRIANGI.F PROMOTIONS A , R ONTO IT 

SHFL 3370 

c 

-FORM TRANSFORMATIONS R F T VI F F M Fl.FMFN T ANO NOPAL SYSTEMS 

SHFI 3330 

C ********** ************ ** *************************************** ********SHFL 3340 


CALL TOCOS {Ml ,M?,N3,X t Y,Z*A,R,Tl *l?,13,Tn,NTRI ) 

SHFI 3350 

C ************************************************************* **********SHFI_ 33 60 

C 

-FORM MASS MATRIX AND NOPAL FOPf.F VFC10R 01 iF TO NORMAL PRFSSHRF 

SHFI. 3370 

C 

AMO GRAVITY 1.0 AOS IN GLORAI. COOR 0 1 NA T F S 

SHFL 33 80 

C *********************************************************************** SHFI 3390 


ARFA=< A( 3)*R( 7)-A( ?)*R( 311*0.5 

SHFL 3400 


arfaa=arf aa+arfa 

SHFI. 3410 


TF( NTRI .FO.l ) GO TO 345 

SHFL 3470 


FAC=ARFA*PRFSS*0.5 

SHFL 3430 


XMM= ARFA*RHO *0.5 

SHFL 3440 


HO 340 1 = 1,7 

SHFI 3450 


K=Lnr.( 1 ) 

SHFL 3460 


nn 340 ,i=T,3 

SHFI. 3470 


K=K + 1 

SHFL 34 80 


on ?41 L- 1,4 

SHFI. 3490 


Pi (K,l)= PI ( K,l. ) + XMM*FMUL( .1 + 7,1.) 

SHFL 3500 

?M 

P? (K ,1 ) = P7 (K,L)+ FAC*FMHI. (1 ,L )* T3( J ) 

SHFI 3510 

3/»n 

XM( K )=XM( K ) + XMM 

SHFL 3570 


GO TO 350 

SHFI 3530 

345 

FAC= ARFA*PRFSS/3 . 

SHFI. 3540 


XMM=ARF A*RH0/3.0 

SHFI 3550 


On 360 1=1 ,3 

SHFL 3560 


K=i.nr.( i ) 

SHFI. 3570 


nn 360 . 1 = 1 ,3 

SHFL 35RO 


K=K + ] 

SHFI 3590 


nn 361 L=1 #a 

SHFI. 3600 


PI (K,L)= PI (K,U+XMM*FNHL (J + ?f U 

SHFI 3610 

361 

P? ( K , L ) = P7 ( K , 1. 1 + FAC*FMIIU l ,L)*T3U» 

SHFI. 3670 

?60 

XM (K ) = XM IK ) + XMM 

SHFI 3630 

3sn 

cn MT INI IF 

SHFL 3640 

c *************************************************************** ********SHFI 3650 

r. 

-MFMBRAMF CONTRIBUTION 

SHFL 36 60 

r ******************************************************************* 

****SHFI 3670 


CALL SLST (CM) 

SHFL 3680 

(-** ******************************************************************* **<;hF1 3690 

C 

-LOCAL TO GLOBAL COOpniNATF TRANSFORMATION OF TRIAMGI.F FLFMFNT 

SHFL 3700 

r 

MFMRRANF ST I F FNF $S 

SHFI. 3710 


18 ’b 


f ************************************************************* **********SHFI. 37? O 
t. 7 = 0 SHFI. 3730 

OH 400 .1.1= 1 .3 SHFI.3740 

J = ,l,i + ,i,l SHFI 3750 

m = i.nC(.t.l) SHFL 3740 

nn aoo i.= ! , ^ SHFI 3770 

M = M + } SHFI.37PO 

I. 7 = I. T + 1 SHFI. 3790 

C 1 = T l( L T ) SHFL3POO 

C?=7?{|.T) SHFI. 3R 1 0 

KT = 0 SHFI. 3H?0 

nn 3oo n = i ,.u shfi 3R30 

1 = I! + II SHFI.3«40 

KK = ? SHFI.3R50 

IF (H.FO.JJ) KK = I. SHFL3RM) 

HI = SI I 1-1 •.I-1)*C1 + SI ( I-l )*C? SHFI 3B70 

H? = ST( I ,.I-1)*M + ST( 1 ,J)*C? SHFI.3HM0 

M = l.nr. (IT) SHFI. 3H90 

nn 3 00 K =1 ,KK SHFI. 3900 

N = M + 1 SHFI 3910 

KT=KT + 1 SHFI. 39? 0 

S0= S! IN, M} + 1 1 (K7 >*H1 + 7?(KT )*H? SHFI 3930 

Sl(M,M) = Sn SHFL3940 

390 SI (M,M)=SO SHFI 3950 

*00 r.nMTIMHF SHFI. 3940 

C *********************************************************************** I SHFI 3970 

r. local rn global cmproimatf transformation of strfss matrix ANn shfi.3980 

r thfrmai. loam vfctok shfi. 3990 

C************* ***************************** *****************************SH FI. 4000 
nn Aio ,1,1=1 ,3 shfi 4010 

»=i.nr.( ,i.n shfl 40? 0 

,l = ,l,l + ,l,t SHFI 4030 

nn 4 1 n l = 1 Shfi. 4040 

M = M+l SHFI 4050 

Rll M)=P1( MJ + TK I. )*FT( .1-1 > + T?( l.)*FT( J| SHFL 404(V 

nn 4 jn k=i ,3 shfi. 4070 

410 SA] ( K (M ) =SAl( K *M )+( f,7{ K,.l-1 ) *T 1 ( L ) +C T ( K « ,1 ) # T? ( I. ) ) #WG SHFL40H0 

f ******** * ***************************************************** ********* s HFI 4 09 0 

C PI. A T F RF NO JNG CONTRIBUTION SHFI. 41 00 

f *********************************************************************** SHFI 4J10 
CALL SI.CO T ( CM ,N T R 1 ) SHFI. 4 1 70 

0**************************** *********************************** ********SHF( 4130 

c l.nCAL rn GLOBAL TRANSFORMATION OF TRIANGLF FI.FMFNT SHFI.4l40 

c RFNnjMG STIFF NFSS SHFI 4150 


C *************************************************************** ********SHFL 4 140 


nn roo ,i.t = i 

,3 

SHFI 4170 

.IT = 3*. 1.1-3 


SHFI. 4 1 HO 

,1 = ,n + 1 


SHFI 4 190 

nn 4 po n=i 

* .1.1 

SHFL 4? OO 

17 = 3*11-3 


SHFI 4? JO 

T = IT + l 


SHFI.4??n 

KK = 4 


SHFI. 4? 30 

nn 4 ho l = 1 «4 


SHFL 4? 40 

IF in, Fn. ,i,i ) 

ii 

SHFI 4? 50 

m s i. nr.( .1,1) + 

1. 

SHFL 4? Ml 

1.3 = L - ? 


SHFI 4? 70 

IF 1 L3.GT.0I 

GO |M 4 (SO 

SHFL 4? HO 

f. 3 = 73 ( ,n + i. ) 


SHFI 4?9M 

HI = ST( 1 ,.l) 

*r. 3 

SHFL 4 300 

H? = ST ( 1 +1 , ,l )*C3 

SHFI 4 310 
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46 n 


H3 = ST( I+?.J1*C3 

r-p m 470 
C1=TU .IT+1.31 
C?=T?IJT+L3) 

HI = ST{ I ,J+1 )*C1 + ST( I ,J+?)*C? 

h? = sicr+i . j+n*n + si ( i + i t»»+?>*r.z 
H3 = st{ i+? * j+i i*ci + st( i +?,.)+? »*c? 
47n m = i nr. mi 

nn 4 po k = l *kk 

M = m + \ 

K3 = K - 3 
K ] = II + K 
K? = IT + K 3 

IF (K3.LF.0I SO =S7(M,M1 + 1?IK1I *Hl 
IF (K3.GT.0I SO = S7(M,M) + T1 |K7)#H? 
S?IN,M)= SO 
4R0 S?(M,N> = SO 
600 CPN1INUF 


SHFI.4370 
SHFI. 4330 
SHFI.4340 
SHFI 4?50 
SHFI. 4360 
SHFI 4370 
SHFL43H0 
SHFI 4300 
SHFI. 4400 
SHFI. 4410 
SHFI. 4470 
SHFI 4430 
SHFL 444(1 
SHFI 4450 

+ T? (K?)*H3 SHFI. 4460 

SHFI. 4470 
SHFL44H0 
SHFI. 4490 


(^ *****#*>}:* ******* ********** ******* ****** ********** ** ******************* *SHFL 4500 


c- 



-LOCAL TO GLOBAL TRAMS FORMAT IPM OF MPMFNJ RFSIILTAMT MATRIX AMI) 

SHFI. 4610 

c 


THFRMAI. LOAD VFCTOR 

SHFI. 4670 

rtf********************************************************************** SHFI. 4530 



no 6R0 JJ=l .3 

SHFI. 4540 



M = l PCI JJ1 

SHFI 4650 



,l = ( ,1.1-1 1*3 + 1 

SHFI. 4560 



nn fr* i.= i ,3 

SHFI 4570 



M = M + 1 

SHFL45R0 



R?IM)=R?(M) + FT(,H*T3(L ) 

SHFI 4590 



no 6R6 K - 1 « 3 

SHFI. 4600 


6R6 

SA7 (K + ?,M ) = SA?<K + 3, M 1+CK K.,1 1*7? 1 L )*VIG 

SHFI 4610 



00 600 1=1.3 

SHFL4670 



M=M+ ) 

SHFI 4630 



R7( M )=R7( M )+FT( ,1+1 »*T1(L)+FT( J+?)#T?(L1 

SHFI.4640 



00 6A0 K= 1 . 3 

SHFI. 4650 


6R0 

SA?( k + 3,m)=SA?( K + 3,M)+(CT(K,J+1 )*Tlll) +CTIK.J+7 )*T7(L1 >*W G SHFI. 4660 


700 

COM! [Ml IF 

SHFI 4670 



I FC MTRI.FO.l ) on TO qno 

SHFI. 46 RO 

f*********** ************** *****$***£ ***** 4690 

c- 


-f.HFCK FOR PPSSIRI.F JM TFRNAI. STIFFMFSS SINGULARITY (FLAT 

SHFI. 4700 

r 


OR MFAPLY FIAT OIIAnp II.A1FRAI. ) AMP TRAWSFORM STIFFMFSS AT 5»lH 

NPPF SHFI. 4710 

c 


TP GI.ORAL COOROINATFS 

SHFI. 4770 

r ********* ************************** ****** ****************************** SHFI 4730 



IF( Sl( 77,77) .GT.( Sl( 75,25 1 +S1 1 26, ?6) >*1.0F-07) Gn TO 690 

SHFI. 4 740 



nn 601 1=1,77 

SHFI. 4750 



Sl( 1,771=0.0 

SHFI. 47 60 


691 

SI ( 77, 1 1=0,0 

SHFI. 4770 


690 

no 510 I 1 = ] ,77 

SHFI. 4 7 RO 



DP 511 ,»=1.3 

SHFI 4790 


511 

FTC ,n = Sl( 11 ,?51*TP( 1,.11 + SU 11 ,7M*Tn<?.Jl + Sim,27)*TP(3,J> 

SHFI.4R00 



nP 5}0 J= 1 ,3 

SHFI 4010 


510 

SI ( I I ,.1 + 74 ) =F T( .1 1 

SHFI.4R70 



OP 570 ,1.1 = 75 , 77 

SHFI 4 fl 3 0 



on 571 1=1 ,3 

SHFL4R40 


571 

FTU) = TP(1»!)*S1 (75, JJ1 + 1PI7, 1 1 *S 1 1 76 , .1.1 1 + 1 IM 3 , ! 1 *S 1 ( 77 , J J 1 

SHFI 4«50 



on 670 1=1 ,3 

SHFI.4R60 


5 70 

SI ( ?4+ J , ,1*1 1 = FT ( 1 ) 

SHFI 4870 



no 530 T=1 ,74 

SHFL48H0 



nn 530 ,1=75,77 

SHFI 4H90 


530 

S1U*T1 = S1( 1 «.l 1 

SHFI. 4900 



CALI. TRAMS(S7.1P,F1 .FTI4 1 ,F1 (7 11 

SHFI 4910 


£8 *b 



cut***###*** *** ****** ******* *************** $$#* *********** **** ******* ****SHFL 4970 

C cnM0FNSA7 ION OF rN7FRWAL OFORFFS OF FR FF/TOM SHFI. 4930 

£*********************************************************************** SHFL 4940 


CAI.I. r.PWOFW I 1 «3«S] <R] *SA) ,ST1 ) 
CALL CflNDFN ( 4 f 4 t S?,R? t SA?,ST?) 
nn p^] i-i ,4 
nn R5i .1 = 1 ,4 

Til ( T .J)=TT1 H ,,I) + ST1 ( I >*FM|I|.C?,J) 
PS 1 TT7( l ,.) >=TT7( I ,.n+ST?( I)*FMtlM ?, J ) 
9f)0 nn R4n 1=1, MO 
nn Rsn , 1 = 1 ,4 

PI ( I * J ) = P1 f l*,l) + RHI)*FMrn.C?,J) 

«sn pt ( i * j ) =r? ( n*FMiM.( pfj) 

RF 7 IIRM 

fmo 


SHFI. 4950 
SHFL4940 
SHFI. 4970 
SHFI. 49 HO 
SHFI. 4990 
SHFL 5000 
SHFI.. 5010 
SHFL 5070 
SHF| 5030 
SHFL 5040 
SHFI 5050 
SHFI. 5040 


SHARnilTlMF CONOFM ( NM ,MM , s ,R t SA , ST ) SHFL 50 70 

£*********************************************************************** $HF|. 50R0 

C OOMOF MS A T 1 ON OF IMfFRNAL DFORFFS OF FRFFDPM SHFL 5090 

{ *********************************************************************** SHFL 5100 



implicit rfal*r (a-h,o-z) 

SHFL 51 10 


niMFwsinM si ?n,?oi , r 130 ) *sa( 4 , 30 ) ,ST|4> 

SHFI. 5170 


nn Rsn r = i ,4 

SHFL 51 30 

R40 

ST 1 T )=0. 

SHFI 5 140 


nn non j = t ,4 

SHFL 5150 


l_ = 30-J 

SHFI 5140 


M = l.+ l 

SHFL 5170 


PIU = S( M,M ) 

SHFI 5180 


1F( PIV.LF.ni 00 TO ROO 

SHFL 5190 


R|_ = R ( M ) / p 1 V 

SHFI. 5700 


nn r?o k=i ,l 

SHFL 57 10 


RfK )=R(K)-StK,M)*R|_ 

SHFI. 5770 


SS = S( M,K ) / P 1 V 

SHFL 57 30 


nn P3P 1 = 1 , k 

SHFL 5740 

R30 

St K, M = S(K*I)-S(M,I )*ss 

SHEL 57 50 


nn r?o i=nn,mm 

SHFI. 5760 

R70 

SA ( I . K ) =S A ( I , K ) — S A ( I,M)*SS 

SHFL 57 70 


nn Pin j=nm,mm 

SHFI. 57 RO 

RIO 

ST( I > = S T t I ) -SA( I ,m)*ri. 

SHFL 5790 

ROO 

r.HMT I Ml IF 

SHFI 5300 


nn 9nn 1 = 7,74 

SHFL 5 3 10 


il=I-l 

SHFI 5 37 0 


nn nnn .1 = 1,11 

SHFI. 5330 

cif>n 

Stj,I ) = SU*J> 

SHFI. 5 340 


R F TURN 

SHFL 5350 


F Nn 

SHFI 5340 
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SURRHffTIWP TRANSf S,TP,C1 ,C7,C3 ) SHFL 53 70 

C ******** **$*** *** 3 #****.** ************************* ************ *********<;hFI 5 3RD 

C TRANSFORM THF STIFFMFSS MATRIX AT SUN NPOF TO GLOBAL COOROlNATFS SHFL 5390 

C * *** * ********* ******** *** *********************************** ***********Sf.|FI. 5400 



IMPLICIT RFAI.*B (A-H,0-7) 

SHFLS410 


niMFNSIDN St BO ,30) ,7n(3»3).Cn3) ,C? (3) ,C3t?> 

SHFI.5470 


IFIS t?5,?5).GT. S ( 77,77 )*1 .0F-07 ) GO TO 692 

SHFL 5430 


pn 693 1=1,30 

SHFI. 5440 


S ( 1 ,?5)=n.O 

SHFL 54 50 

693 

s t?s,n=n.n 

SHFI. 5460 

69? 

I Ft S t?6,?6).GT.S ( 27 ,?7 )*1 .OF-07 ) GO TO 694 

SHFL 5470 


nn 695 1=1,30 

SHF) 54«0 


S ( I » 76 ) =0 , 0 

SHFL 54 90 

69* 

s < ?6, i ) = r.o 

SHFI 5500 

6 Q4 

IF(S ( 30,30) # GT.( S (?9,?9)+S t ?P , ?R ) ) * 1 . Op-OR ) GO TO 730 

SHFL 55 10 


00 710 1=1,30 

SHFL 557 0 


S ( I , 30 ) =0 . 

SHFL 5530 

710 

S € 30. 1 ) = 0. 

SHFL 5540 

730 

on 10 ri=i ,30 

SHFL 5550 


on ii i =Y, 3 

SHFI 5560 


Cl I I ) = st 11 ,?5>*TP( 1 , 1 ) +S( I 1 .7* )*TP( 2,1 )+Sl 11*27)* Tn 13, 11 

SHFL 5570 

n 

C?M ) = 5I1 I,?R)*ln( 1 , 1 ) + S( 1 1 ,29) *10(7, I ) + S< 1 I,30)*TfU3, 1 ) 

SHFI. 55HO 


nn io . 1 = 1,3 

SHFI. 5590 


st 1 1 , j+?a ) =r. 1 1 

SHFI 5600 

10 

S( 1 1 *.1 + 7 7 ) =C?( ,)> 

SHFL 5610 


nn ?0 ,i J- 75 ,?7 

SHFL 5670 


,I3 = , 1.1 + 3 

SHFL 5630 


nn ?i i=i ,3 

SHFI 5640 


Ti=Tnt i,n 

SHFL 56 50 


77=70(7,1 ) 

SHFI. 5660 


T3=T0( 3, 1 ) 

SHFL 5670 


Cl < T ) = H*S(75,J,I) + T?*S(?6, JJ) + 13*S(?7,JJ) 

SHFI 5680 


C2m*Tl*SC ?5,J3)-M7*S( 26 , .13 ) + 13#S( 77, .13) 

SHFL 5690 

?i 

C3U ) = 71*S(7fl. J3) + T2*S(?9, J3) + T3*S(30,J3) 

SHFI 5 700 


on ?0 1=1,3 

SHFL 5710 


S(l + ?4,J.I )=C1 t I ) 

SHFI. 5770 


St I+?4,J3)=C?( I ) 

SHFL 5730 


S ( J3, 1+74 )=C? ( I ) 

SHFI 5740 

?0 

St 1+77 , J3 ) =C3t 1 ) 

SHFL 57 50 


OP 30 ) = 1 ,?4 

SHF! 5760 


on 30 .1=73,30 

SHFL 5770 

3p 

sr.M usr !«.•> 

SHFI. 57R0 


RFTI1RN 

SHFL 5790 


FNn 

SHFI 5 POO 
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SIIMRnnTINF SI. ST (C > SHFL3M0 

C*#*******#********************************************#****************5;HFI 5 R? O 

C THIS SllfipntlTlMF FORMS THR STIFFWFSS MATRIX ,THFRMAL LOAD VECTOR, SHFLSR30 

C AM 0 S1RFSS MATRIX OF A CONSTANT STRAIN TR I ANf,|_ F WITH SHFI SHAH 

C UMFAR PLASTIC ANISOTROPIC PRPPFRTIFS SHFLSRSO 

£********************************************************** *************$HF| 5 R60 


implicit rf ai.*r ( a-h , n-z j 

SHF*. 3R70 

COMMON/COMPL/A 13) ?) f F7 (9>,S7 19.9), 11 19) , T7I9) , 7319) , ARFAr 

SHFI. SHRO 

CT( 3,9) ,SMM 3 I ,RMT( 3) .LOCI 3) ,ICOMP( ah 1 ) 

SHFl. 3H 90 

niMFMsrnM r. n,?j 

SHFI 3900 

FAC=0.?S/ARF A 

SHFI. 3910 

facuo.s/arfa 

SHFI. 3970 

Cl 1 = r.( 1 , 1 >*FAC 

SHFL 3930 

C?7 = C I 7 , 7 I *F AC 

SHFI 3940 

r .33 = c( 3 , 3 »*fac 

SHFI. 3950 

Cl? = r. U ,7 )*FAC 

SHFI 3960 

Cl 3 = C( 1 ,3 I*F AC 

SHFL 39 70 

C73 = C(?,3)*FAf 

SHFI 39H0 

no ?on j=i,3 

SHFI. 39 90 

l-=.»+J 

SHFI 6000 


£** ***************************************************************** ****SHFL 6010 

C THFRMAI. LOAD VFCTPR SHFl" 60? 0 

£************* *********** ******** ***************************************$ HFL ftOUrt 


FKL-1Ife l-R(.i)»SMT( 1 )-A( J)*SHT l?))*O.S SHFI 6040 

FTd. ) = (-A( .l)*SMT(?)-R{ JKSMTI3I 1*0.3 SHFI. 6050 

f****************** *********************************************** ******SHFL60fi0 

C STRFSS OISPI.ACFMFMT TRANSFORMATION MATRIX SHFI. *070 

c ********************************************************************* **£MFI . 60 ro 
nn 3no t=i ,3 SHFL6090 

Cl I I fl.-l 1= ( C( I , 1 )*BU)+Ct I ,3 )*AIJ ) >*FAC1 SHFI MOO 

100 CT( Itl.) = ( C( I ,7 I*A(.| I+C( I *3 )*R( J ))*FACl SHELM10 

f ******************** * ********************** **************************** $hF 1 . 6 1 7 O 

C S T IFFNFS S M A TR I X IN TR I A NCR F LOCAL COPRMINATFS SHFL 6 1 30 

C *********************************************************************** shFI. 6140 


no ?no I =1 , J 

SHFI.6150 

K=T + T 

SHFI 6160 

A A = A ( I )*A( .1) 

SHFI. 61 7(' 

A R= A ( T )*R( J) 

SHFI 61R0 

RRrRf J )*R( J ) 

SHFL 61 90 

R A = R ( T }*A( JI 

SHFI 6700 

AR A = AR + R A 

SHFL 6? 10 

SI (K-1 ,1.-1 »=C1 1*RR + C 1 3*ARA + C?3*AA 

SHFI. 6770 

ST( K-l ,1. I*C1 ?«RA + C13*RH + C?3*AA4C3 3^AR 

SHFL 6? 30 

ST f K,l -1 ) = r.l?*AB+r.l 3*RP+C?3*AA4C33*PA 

SHFI 6740 

S T ( K ,1. > = C??*AA+C73*ARA+C33*RR 

SHFL 6 ? 50 

no 4oo 1 = 3,6 

SHFI 6760 

no 4oo ,i = i , 1 

SHFL 6? 70 

ST I I » J ) = ST ( J , 1 ) 

SHFI 6? M 0 

pftijrm 

SHFI. 6790 

FMO 

SHFI 6300 
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smrrputimf si.cr.n r.M,NTR i ) 


SHFL 63 1 0 


£*********************************************************************** SHFl 6 ??0 

r. TUI’S SURRHHTINF FORMS THF P L A T F RFN01NG SHFFNFSS AMO THF SHFL6330 

f fPN57 MFW1 I. MAP VFC.TPR PUF TP THFPMAf. I.PAPS AMP S7PF55 SHFI.6340 

c TRAMSFPRMAT ion MATRIX PF a L1WFAR PUR V A FI IR F COMPATIRLF TRIANGI.F SH FL A3 50 

c WITH 6 MnpAI. POINTS . Min SinF woofs apf F U M I M a t f n by assuming SHFl 6360 

C NORMAL SLPPF AT 1HF Mil) SinF NOUF TO BF AVFRAGF OF THF PNFS AT TWPSHFL6370 

C AOJAf.FNT CORMFRS. SHFl 6 3*0 

£**********«************************************************ ************SHFL 6390 


implicit rfal^b (A-H,P-Z) 

COMMON /COMpl./At 3 ) ,R( 3 ),FT( 9 ) ,ST( 9, 
1 r7(3'b} t SM1t 3I.HMTI ?> ,I_PCI 31 •JMM, 
? Gf ?1 ) ,HT( 3) 

niMFMSIPN I PF R M ( 3 ) , CM | 3 , 3 ) 

HATA TPFRM/2,3,1/ 

FAC1=ARFA/4?P. 

F A C ? = 1 ./I?. 

DP 150 T=),3 
.1 = 1 PF R M( I ) 

K = IPFRMMI 

X= A | I )**?+R( I )**? 

lift ) = -(AM )«A (J ) + R( IH-PUII/X 

y=nS0RT( X) 

Y=4.*rtRFA/X 
HTI I ) = 2 •* Y 
TXT 1 )= Y*AU ) /X 
TY( T ) =-Y*R( T ) /X 
A I =0. 5* A ( I l/ARFA 
A?=0.5*At .1 ) / APF A 


SHFl 6400 

9) ,T1 (9) ,T?(9) ,T3(9) ,AttFA, SHFL 64 10 

IU3 ), 7X13 ), TY( 3) ,013,6 ),P(?1 ,9|,SWFI 642 0 

SHpl.6430 
SHFL 6440 
SHFL 6450 
SHFl. 6460 
SHFL 64 70 
SHFl 64R0 
SHFL 6490 
SHFl 6500 
SHFl. 65 1 0 
SHFl 6520 
SHFL 6530 
SHFl 6540 
SHFL 6550 
SHFl. 6560 
SHFL6570 
SHFl 65B0 
SHFL 6590 


150 


R 1 =0. 5* R ( I ) / ARF A 
R?=0.5*R( .D/ARFA 


Ofi,N 

m 2, n 

0(3,1 ) 
oil, I +3) 

o(2, r +? j 

0( 3,1+3) 
CON 7 |N| IF 


R I * R 1 
A l * A I 
2.*A1*R1 
?.*R1 *R? 

7.*A I*A2 

?.*( A1*R7+A7*R1 ) 


SHFl. 6600 
SHFl. 6610 
SHFl. 6670 
SHFl. 6630 
SHFl. 6640 
SHFL 6650 
SHFl 6660 
SHFL 66 70 
SHFl. 6680 


C ********* ******************************** ************************** ****$HFL 6690 

C CWRVATURF OfSPLACFMFNT R Ff. A T TOW FOR THRFF TRIANGULAR RFGFIOWS SHFI.6700 

G ****************************************************** *****************SHFL 6710 


DP 700 1=1,3 

SHFl 6720 

.1= I PF RM( 1 ) 

SHFl. 6730 

K=IPFRM(J ) 

SHFl 6740 

11=3*1 

SHFL 6750 

,i,i=3*j 

SHFL 6760 

KK=3*K 

SHFI.6770 

A 1 = AIM 

SHFl 67R0 

A ? = A( J ) 

SHFl. 6790 

A ?= A ( K ) 

SHFl 6R00 

R 1 =R l 1 ) 

SHFl. 68 1 0 

R7=R( J) 

SHFl 6820 

R 3 = R { K ) 

SHFl. 6R30 

Ml =H ( T ) 

SHFl 6R40 

H7=tl( .1 ) 

SHFL 6R 50 

1 13 = M ( K ) 

SHFl 6H60 

Wl=l .-Ml 

SMFI.6H70 

w?=l .-II? 

SHFl 6 880 

W3 = 1 .—113 

SHFl. 6890 

Pin=Hi +pi 

SHFl 6900 
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R?n=B?+p? 

R?0=R3+R3 

ai n=A i + a 1 
A?n=A?+Ap 
A30=A3+A3 

0? 1 = R1-P3*U3 + T X ( K ) 

C31 = A 1 — A 3 *H3 + TV ( K ) 

CM a R3*H3-Rp +TXIK) 

C.f>} a A3*W 3-A7 +TV(KJ 

r.Rl = R?-fl?n-R?«ll? + TXI.I) 

CPI a A3-A7n-A?*H? + TY ( .1 ) 


r??=~Rin+P?*w?+P 3 *m + ixui-ixMO 
C 3 ? = -Ain+A?*-J?+A 3 *ll 3 +TY( .) ) - TY 1 K ) 

CM a ppn-R 3 *w 3 -R 1 *H 1 +TX(I)-TX(K) 
f ,67 - A?n-A 3 *W 3 -A 1 *IH + T Y( I > -TY! K > 
f.R? a RTn-R?+Rl *W 1 + T X ( J ) 

C.o? - A 1 n- A 3 + A 1 *W 1 +TY( I) 

no poo m= it? 

I.= 6 *( 1-1 )+N 

nil = 01 n, l ) 
n??=m M t ,n 

O 3 3 = £>( N , K ) 
ni? = 0( M, 1+3 ) 

Op 3 =ftlN,.i+ 3 ) 

03 1 sO( M , K + 3 ) 

Op 333 =n? 3-033 

03133 = 031-033 

PM. , 11 - 7 ) = 6 .*(-nii+w?«l 33 +H?* 0 ?? 33 ) 

PC- . 11 - 1 ) = C? 1 *O 73 +C? 7 * 033 -R 30 * 0 l 7 +R 7 n #031 
PM. , IT ) a C 31 * 0?3 + C 3 ?* 03 ?-A?n*in? + A?n*Q 31 
PM. ,. 1 . 1 - 7 ) = 6 .*( 0 ??+W 3 * 0 ? 333 ) 

PM. ., 1 , 1-1 ) a CM * 0 P 33 ?+R 3 n* 0 ?? 

PM. ) = CM * 0 p 333 +A 30 * 07 ? 

PM. ,KK- 7 ) = 6 .*( 1 . + U ?)*033 

P{ I. ,K K— ] ) a CPI *033 

PM. ,KK J = C 91 *n ?3 

PM. + 3 , 11 - 7 ) = 6 . *{ Ol 1 + 113*031 33 > 

PM. + 3 t J I -1 ) = CPI # 0?1 ??-P 3 n *01 1 
P( 1 . + 3 , 1 ! ) a f ,3 1 *03 1 33 — A 30*01 1 

PM. + 3 a 6. *(-077 + 111*033 + ^ 3*03 1 33 I 

P ( L + 3 , . 1 . 1-1 ) a c* 5 1*031 +Ci ?*033 + R 3 n* 0 lP-Win* 0?3 
PM. + ? r .l.l 1 = CM ^ 031 +Cf ?* 03 ?+A?n *01 ?-Ain* 0?3 
PM. + 3 ,KK-P) = 6 .*( 1 .+‘41 )*033 
p 1 1 +3 ,kk-i> = crp*o ?3 
P( I. + 3 t KK ) = C OP *03 3 
PfN+J R.II-?) = ?.*( 0 ) 1 +IJ 3 *O}p + Wp* 03 ) ) 
p(N+i«,KK-t) a ( ipin-ppn » * 03 3 +r.Hp*np 3 +c« i* 03 i ) / 3 , 
PIM+ 1 P.KK ) = M A 10 -Apm *033 + C‘)?* 0?3 + CPl* 031 )/ 3 . 
pnn cnwTiMUF 

no Aon ,i=i , p 
f t ( J )=n. 
no 340 1 .= l ,3 
1 1 =L 

KK=L+ 1 P 
P 3 =P( KK f .1 ) 

r,(KK 1 = 0 . 

no 3 40 M = 1 ,3 

I I +? 

SHM = p( 1 I ,. 1 )+P( . 1.1 , .1 ) +P 3 
CM I )stliM+p( 1 I ,.U 


SHFl. 6910 
SHF| 6970 
SHFl. 0030 
SHFI 6940 
SHFl. 6950 
SHFl 6460 
SHF1.6970 
SHFl. 6980 
SHFl. *99(1 
SHFl 7 000 
SHFl. 7010 
SHFl 7 OP 0 
SHFL 7030 
SHFl. 7040 
SHFL 7050 
SHFl. 7060 
SHFl. 7070 
SHFl 7OR0 
SHFL 7090 
SHFl. 7100 
SHFL 71 10 
SHFl. 7 170 
SHR. 7130 
SHFL 71 AO 
SHFl. 7150 
SHFl 7160 
SHFL 71 70 
SHFl. 7 1 HO 
SHFL 7190 
SHFl. 7700 
SHFL 77 10 
SHFl 7PP 0 
SHFL 7? 30 
SHFl 7740 
SHFL 77 50 
SHFl 7760 
SHFL 77 70 
SHFl 77 HO 
SHFL 77^0 
SHFl. 7 300 
SHFL 73 10 
SHFl 7370 
SHFL 7330 
SHFl. 7340 
SHFL 7350 
SHFl 7 36 0 
SHFL 73 70 
SHFl 7380 
SHFL 7390 
SHFL 7 400 
SHFl. 7410 
SHFl 7470 
SHFL 7430 
SHFl 7440 
SHFL 7450 
SHFl 7460 
SHFL 74 70 
SHFl 7480 
SHFl. 7440 
SHFl 7500 




r,( jj) = sum+p( j.i.j) 

shfi. 75io 


P(KK)=R(KK )4SHM+P3 

SHFI. 7 57 0 


FTU )=FT< .1 )-SHM*HMT( l.)*ARF ft/9.0 

SHFI. 75 30 


TT=lI + f 

SHFI. 7540 


r.nwT i mi if 

SHFI. 7550 


on ?60 Ms 1 , 1 «♦? 

SHFI 7560 


Gl =r,( n > 

SHFI. 75 70 


R?afi( N+l ) 

SHFI 7580 


r^=R{ n +? ) 

SHFI. 7590 


fi(N >=c.h 1 1 , i )*r,i+r.M i 1 f p )*o?4 cmi 1 , 31*03 

SHFI. 7 600 


r,< m+i )=r,M( i ,?)*r>i+r.Ht ? t ?i*r,?+r.M< ?, 3)*r,3 

SH FI. 76 1 0 

^60 

G(w+? )=r.M( i ,?)«G1+CM| ?,3)*f;?+CM ( ? ,3 )*G? 

SHF1.7670 


nn 390 isi t .i 

SHFI. 76 30 


x=o. 

SH FI 7640 


nn 3 ro w=i f ?i 

SHFI. 7650 

•*ro 

X = X+fi(Wl*P(M, I ) 

SHFI. 7660 


X=X*FAC1 

SHFI. 7670 


ST t T *,» )=x 

SHFI 7680 

•*qo 

ST ( .1.1 > = X 

SHFI. 7690 

*.no 

COM 11 Ml IF 

SHFI. 7700 


r. 

-CUR VAT UR F nTRPLAf.FMFMT - DI SPl. ACFMFM1 RF|_ATIPN AT. FLFMFM7 CFMTRF 

SHFI. 77? 0 


^ * SHFI. 7730 


IFIMTRI .FO. 1 ) r.p TO 55 ] 

SHFI. 7740 


nn 560 .1-1 ,9 

SHFL'7750 


P M 9. ,i )=( P( 1 P * J ) + P ( 1 3 . .1 ) ) *0. 5 

SHFI 7760 


p< ?n t .n = ( pm i .jj+pi i4 ,.m*o.*> 

SHFI.7770 

550 

p(?i . j )={ pi i ?ij]+p(i i i, ( ii »*n.s 

SHFI. 77R0 

C*&44$££$<^#$*$$$$^#4$£$<t$4ft$«$£#££v ( £g££$3£$3g ; £3£$g ;t | : gg£gg£g : } ( g££,j ; £££££^, ;[ g£^|p| y7qp 

c 

-mpmfmt - ni.SPi acfmfni rflatjon 

SHFI. 7 ROO 

Ctf*******:**:***#**:*****,****#,*****^*^*.:,*;***^;***,^**^*^ Hp( 7 h i o 


on 600 Ui T 3 

SHFI 78? 0 


nn 6 nn .1 = 1 ,o 

SHF». 7830 


SIIMsO. 

SHFI 7H40 


nn mo k = i ,3 

SHFI. 7B50 

Mn 

SMM = SUM+r.M(l ,K )*P(K + 1R, J ) 

SHFI 7860 

6 on 

CT( 1 ,.l> = -FAr?*Sim 

SHFI. 78 70 


RFTIIRN 

SHFI. 7 flRO 


Fwn 

SHFI. 7890 


00 

to 


SURROinfMF inr.nSINI .M?,N3 f X.Y.7,A,R.11 •T?,13,T,NTR1 ) SHFI 7900 

C *#***«**##* *#*****$**************«*#***#***** *********$*#******##******SHFL 79 lO 

r this <iiiRMniniNF r.pMpinFs thf mrfgtipn cdsinfs of thf local SHFi.?y?o 

C S Y9TFM AMn IMF PRO.IFf. TFD OIMFNSIPNS OF A SMRTRIANGLF CnMPONFNT SHFL 7930 

f****************** *$*******************$$ ***********************#******SHFI 7940 
IMPLICIT RFAI_*R (A-H T n-7) SHFL7950 


DIMENSION X(5),Y{5),7(5),A(3>*R(3> 
A] = X( N1 ) -x( M3 ) 

R1 = Y I N l )-Y ( N3 ) 

Cl =7(M1)-7(M3) 

A? = XIN?)-XIN3) 

R? s Y(N7)-Y|M3) 

C 7 - 7 I M?) -7 (M3) 

TF( MTRI ,FO.A ) GO TO 300 

DP ?R0 1=1*3 

T l ( I ) = T { 1*3-7 J 
T l ( 1 + 3 ) = 1 ] ( I ) 

T 1 1 I+M«Tl( 1 ) 

T?( I )=T I 1*3-1 ) 

T7( 1+3 ) = T7( I 1 
7 7 M + 6 ) =T? ( I ) 

T3( I )=T( 1*3 ) 

T ? ( I + 3 ) = T 3 ( I 1 
350 J3I t+6)=T3( 1 ) 
go m 400 

300 T31 = R 1 *C ? - 0 ? *0 l 
737 = 

T33 = A 1 *R 7 — A?*R 1 

'S =OSORT f T31 **7+737**7+733**? ) 

T31 = T31/S 
7?7 = 737/S 
133 = T33/S 
711 = T ?3* 7 f s ) - 7 37* T ( P ) 

T 1 7 = T 3 7 *T( R ) - T 3 3 * T ( 7) 

773= 737*T(?)-T3l*T(S> 

S =OSORT( T1 l**7+T17**7+T13**7) 
111=111/9 
T 1 ?=T1 7/9 
713=713/9 

7?1 = T13*T37-T1?*T33 
777= T 1 1 *133-T1 ?*T31 
773=T1?*T31-Tll*T3? 

11111=111 
T 1 ( 7 )=Tl? 

7 1 ( 3 ) = 7 1 3 
T7( n=T?l 
7 7 I ? 1 = 7 77 
T7( 3 ) = T 7 3 
7?I1 ) = T 3 1 
T 3 ( 7 )=T3? 

7 3 I ?i = 73R 
nn inn T = i .3 
J=!+3 

K = 1 + a, 

111.1)01(11 
T ? ( .!) = !?( 1 ) 

73 ( J) = 13f 7) 
r. 7 =Tf 1 ) 
r.lrll.l) 

CK=T( K ) 


Il(9)*17(9), 73(9), 1(9) SHFI. 7960 

SHFI. 7970 
SHFI 7 9 HO 
SHFI. 79 90 
SHFI. ft 000 
SHFI. HO 10 
SHFI. ft 070 
SHFI. HO 30 
SHFI H040 
SHFI. HO 50 
SHFI R060 
SHFI. HO 70 
SHFI RORO 
SHFI.R090 
SHFI H 100 
SHFI. R I 10 
SHFI R 1 7 0 
SHFL P 130 
SHFI. ft 140 
SHFI. HI 50 
SHFI R 160 
SHFI. ft l 70 
SHFI BIRO 
SHFL ft 1'90 
SHFI R700 
SHFL R7 10 
SHFI M770 
SHFL ft? 30 
SHFI H?40 
SHFI. R7 50 
SHFI ft?60 
SHFL R? 70 
SHFI. R7 80 
SHFL R7 90 
SHFI H 30(1 
SHFL H3 1 0 
SHFI R 3? 0 
SHFL R330 
SHFI R3A0 
SHFL R350 
SHFI R 360 
SHR. R37P 
SHFI R jsRO 
SHFL R390 
SHFI H400 
SHFL «4 10 
SHFI R 47 0 
SHFL H430 
SHFI H 44 0 
SHFL «4 50 
SHFI ft 460 
SHFL R4 70 
SHFI H4R() 
SHFI. H490 


06 ‘b 



71 r K)sin*r.i + 7i?*r.j+*ii 3 *ck 

SHFI R500 

T?f K ) = T? 1 #f. 1 + T2?*f..l+T2?*CK 

SHFI. 85 It) 

1?( K ) = 7 31 *CI + T??*r.J+133*CK. 

SHFI 8570 

Ai i ) = -tim >*a?-th pi^-th ?)*c? 

SHFI. 8530 

A 1 7 ) = 11 U )*A1 + T1 (?)*R1 + T1 I31*C1 

SHFI R 540 

A( ?) = -All )-A( ?) 

SHFI. R 5 50 

PI])-- T?U )*A?+7?f ?)*ft?+Tpn)*C? 

SHFI «56p 

R( ?) = -T?( n*Al-T?( ?)*R1-T2t 3)*r.l 

SHFI. 85 70 

RI?)S-M1 )-R(?) 

SHFI R5R0 

RFTIJRN 

SHFI. R590 

FMn 

SHFI R 600 


SMRRniniNF nnr.ns !N,X,Y, 7 . 1 ) SHFI 8610 

C ;#£**#*£ ««#*** *4 ****£-:* $****#****<:$ ***$*#*#*$*$:* $$** + *$#*>!£*#**$**:(: ft#**## SHFI. 86? 0 

C THIS SMRRntniWF CPMPJUFS THF niPFCTIPN CPSINFS PF 1 HF LPCAL SHFI 8630 

C FLFMFMT SYSTFM PF A 01 J APR I L A T FR fill N=4 ) PR SINGLF TR ] AMGL F ( N= 1 ) SHFI.R640 

0*$** *******$$$***********$$***$ $*** #****$****$$#$$** $£*#$$*$***$******* SHFI. A f>50 


I H PI. 1C IT RF AI.*R { A— H * P — 7. ) 

SHFLR6 60 

niMFMSJPM XI5 ) ,Y(5) t 7(5 ) ,TI9) 

SHFI. R670 

XI = 

xi?)+xnj-xfM)-x* i ? 

SHFI. 86 80 

Y 1 = 

Y I 7J+YI? )-YtM )-Y ( 1 ) 

SHFI. 8690 

71 = 

7( 7 ) + 7 ( 3)-7(N)-Z( l > 

SHFI. 8700 

X? = 

X(?)+X(M)-XM )-X(? ) 

SHFI. 8710 

Y? = 

Y ( 3 ) + Y( M ) — Y ( 1 ) — Y ( 7 ) 

SHFI. 8770 

7? = 

7 (?) +7 (M)-7 ( 1 ) - 7 ( 7 ) 

SHFI 8730 

SI = 

Xl**? + Y1 **?+ 7 1 **? 

SHFI. R740 

C = 

(Xl*X?+Yl*Y?+71 -7? )/Sl 

SHFI 8750 

X? = 

X7-C*X1 

SHFI.R760 

Y? = 

Y?-r.*Yl 

SHFI R770 

22 = 

77-0*7 1 

SHFI. 8 7 HO 

si=nsnRitsi ) 

SHFI R790 

S?=DSORT( X?*X7+Y?*Y?+7?*7?) 

SHFI. PROO 

X1=X1/SI 

SHFI. RR10 

Y1=Y1/S1 

SHFI. HR? 0 

71=71 /SI 

SHFI R 830 

X?=X?/S? 

SHFI. ARM) 

Y7=Yp/S7 

SHFI RR50 

Z?=7?/S7 

SHFI. PR 60 

Id) 

= XI 

SHFI. 8870 

T( 7) 

= X? 

SHFI. PRRO 

7(8) 

= Yl*77-Y7*71 

SHFI R890 

TIM 

= Y 1 

SHFI. 8900 

Tf 5 ) 

= Y7 

SHFI 8 910 

T( 6) 

= 7 1*X7-7?*X1 

SHFI. 8970 

7(7) 

= 71 

SHFI. R^?g 

T{ R) 

= 77 

SHFI. AQ^O 

1 f Q) 

= X1*Y7-X7*Y1 

SHFI 8950 

RFTIIRM 

SHFI. 896(1 

FMO 


SHFI R 9 7 0 


16 -b 



siiRRni m mf nsMFUl Antn, anf'-j , i.nAn*NUMf)v 


SHFL89R0 


f $**£$*****>?***<:*** ******************* «99 0 

C nFSIGN PF PI.ATF /SHFI.L FLFMFMTS FOR S TK F SS CPNS TR A I N T S SHFL 9000 

n 1 m f m s t nw Ani.nj miimov ) f anf'J( nijmpv ) , i_n ad ( numov) shfi.902 0 

f, PMMPM/ ,11 IMK /,ll IN ( 1ft » t I.T.LH«l.,SOI?n) .FX*FY,FXY, SMX,SMY,5MXY,S!G, SHFI 9030 

1 IOVAR t IFX,FHr,H,X IMFRT,TFW,OPMP, SHFAR ,RFTA,HP( 2) * ,|IJN1 ( 243) SHFL 9040 

FXY1=FXY/ ( SHFAR*H) SHFI. 9050 


SMXY1 =ft.O*SMXY/( SHFAR*H*H) 

r.r .=-\ .o 
nn ?nn i=i ,? 
f f ( i.fo.?) r.c=o.n 
Cl=FX/H+r.C*ft,0*SMX/(.M*H) 
r.?=FY/H + rC*ft.O*SMY/( H*H ) 

A X = T F M 
A Y= 1FM 

TF(Cl.LT.O.) AX=CHMP 
!FfC?.U.O.) AY = CPMP 
FX\=FX/( AX*M) 

FY1 =FY/ ( A Y$H ) 

SMXl=ft.O*SMX/( AX*M*H) 

SMYl=ft.O*SMY/ ( AY*H*H I 

CXX= FX1*FX1+FY1 *FY1+FXY1*FXY1 -FX l#FYl 

rX=?.0*fFXl*SMXl+FYl*SMYl+FXY1*SMXYl )- F X l *SM Y 1 -F Y 1 * SMX 1 

cx=cx*rx 

f= SMX1 *SMXl+SMYl*SMYl+SMXYl*SMXYl-SMXl*SMYl 

MP( I )=H 

op ioo j»i,in 

hhm={ r.xx+r.x*H/HP( m*n.5 

MHH = HHH + SORT (HHH*HHH+r. ) 

MHM=SDRT( HHH)*H 

IF( APS (HHH-HP( I n.LT. n.0011 OP TP 200 
100 HP( I )=HHH 

2nn Hp{ m=hnh 

HH=HPt 1 ) 

tfihh.lt.hpi 2 ) > hh=hp(2) 

HH=HH/FRC 

IFfHH.LF. A*»FW( inVARM OP TP 400 
ANFW(H)VAR) =HH 
i.pAnnnvAR) =i. 

400 RFTIJRM 
FMn 


SHFLOOftO 
SHP| 9070 
S H FI. 90 RO 
SMFI 9090 
SHFL 9100 
SHFI. 91)0 
SHFI.91 20 
SUFI. 9 1 30 
SHFL9140 
SHFI.91 50 
SHFI.9160 
SHFI.9170 
SHFL9180 
SHFI 9190 
SHFI. 92 00 
SHFI. 92 10 
SHFL 92 2 0 
SHFI. 9230 
SHFL 9240 
SHFI 92 50 
SHFI. 92 ftO 
SHFI 9270 
SHFL 92 HO 
SHFI 9290 
SHFL 9300 
SHFI 9310 
SHFL 9320 
SHFI 9330 
SHFL 9340 
SHF| 9350 
SHEL93ftO 
SHFI. 9370 
SHFL 9 3 RO 
SHFI. 9390 


Q.92 


SURRntlT I MF RPIIMO ( A , MTOT ) ROMNnOOO 

f ****** ************** ******** ** ****** 4 ****** *** *********************** **ROt )KJ 001 0 

C nniiMO ary fi.f-mfmts roijmoopo 

Q ************ ** ********* ** *** * * ** **** * ******** * ** * * * ***** * * ** *********** RPIIN<1()30 
niMFMSinw A(MTOT) RntlMWlM) 

COMMON /FI.PAR/ MpAR( 14) ,NIIMNP , MR ANn , MF L T YP , N 1 , w ? , N 3 , N4 , N5 t Mill , NF ORfHIMOOSO 
. ,NHMFI. ,MI1MIW,M1 , L R • NFOB * MRLPCK ROIlNOOftO 

COMMON/ JI)MK/,t||N( lft) ,LTtlH,L,SG(?7>, JIIN1 (?S4J RUHNfHVnv 

COmmom/i in l TS / 1 R • I^TMhlMMAtlP.llojlMl? khiimooho 

nmmf=mp ap ( ? ) pnuNooqo 

TF (MPARtn.FO.nj CP TP son RPUNOinO 

CAI.I. r.I.AMPt At Ml ) ,A(N?> * A t N3 ) * A ( M4 ) v MIIMF « NllMMp ) RPUMOHO 

RFTIIRN RPUNOIPO 

Fnn wr iiF ( i w, ?pn? ) pmiNnno 

nn Ron mm = i,niimf rounoiao 

CALL S1RSC { At Ml), A(M1 ) ,A(N3) , NFC1 .NtlMOV . I.L . L R . Ifl.n) RfUJNOlSn 

pp RDO L =1 T f I.H RPUNfllftO 

CALL SIR SC t A (Ml ) ,A(M 1 ) ,AIN3) , NFO , NIIMnv , I. L . L R , l«. 1 ) ROUND 170 

UR TTF( lW*30n?) MM f L * ( SG(I), I=l.?l RPUNO\RO 

ROO CPMTTMMF ROUND 190 

RFTIIRN R0UN0200 

200? FORMAT! //SON ANALYSIS 0 F RPIIMPARY F|.FMFN7S - CONSTRAIN! FnRCFS // RPUMOPlf) 

l S4H enMST NIIMRFR load casf fprcf momfnt//) houno22o 

3002 FORMAT (lX,?Iin.4X,?FlS.S) RPUN0230 

fmp pnnNn?40 


si IRRPIIT INF CLAMp( 1 n »X . Y , 7 * Nl IMF ,Mt IMNP ) RPUMOP50 

f ************************* ******************* ************* **************RPl)N02ftn 

C ROUWPARY FI.FMFNT MATRICFS RPHNn^TO 

C *** *********** *********** *** ****************** *************************RpUN02R0 


IMPLICIT RFA1.*R (a-H,P-7) 

R F A 1*4 X* Y* 7 * FRC 

PIMFMSIPM XI NIIMWp) f y( MIIMNP) ,71 MIIMMP > , ]n| NllMMp, ft) , FMM I Aft ) 

COMMON/ FM/|_M( ft] ,S( ft. ft ) t P ( ft , 4 ) , XM ( ft ) t S 7 l 2 , ft ) , T! t ? ,4 ) , FM1 (2444) 
CPMMPM/JHNK/Rtft) ,FMIIL(4) , T ( 4 ) t l F ( S ) , \ X t S ) , XX ( 5 ) . YY ( 5 ) . 2 Z I 5 ) ,11 ( 4 ) , 
1 V ( 4 ) , IN 1 C ? 1 ft ) 

CPMMPN/PNI TS/IW . IW r IP ,1 1 ,12,13, JR.I9, Ijn,H 1,112 
fohivalfncf IFMM.S) 
no in t=i .A ft 

in FMM(T)=0. 


ROUN0290 
ROIJN030D 
rohno31(> 
RUUM03P0 
RPI IN0330 
pnuM034P 
R0IIN03S0 
RPUN03ft0 
RPl|N037n 
RnilMOBHO 


£***** ******** ** ******** *** ********* * ** *** **** ***** * *«***«««** * <: * £$***** R/)| JNQ3 90 
c CONTROL INFORMATION R01IN0400 

C#*^*****«#**#*##* ************** 10 


wn=i 

RPIIN042 0 

NO = ft 

R0UM0430 

MS=? 

R0UN0440 

MV s 1 

ROt IM04 50 

NW= 1 

R0IIN04ftO 

IOV=n 

R0MNn470 

I F X = 0 

RPPM04P0 

f r c = n , 

ROUM0490 

WR IIF ( I W% ?00n ) MHmf 

RPIIMOSOO 

RFAfH JR, I OOS ) FM|j|. 

HOIWOSIO 

URTTFMU,?nOS) F Mill. 

RIM INtl*S?0 


f ********************************************************************** *ROUMOS 30 
C FI.FMFM! CAPOS HPIIN0R40 


Q. 93 


C ************* **«*«$*****#S**********jfr##tf**s*s***£***#*s#***#*^********RnuN05 50 


WRUFf IH,?001 ) 

M=1 

?no RFAD( IR t l ono) !FL, IF ,KO t KR ♦ IWC, SH.SP, TRflCF 
fFIKn.NF.i) Kn=n 
TF(KR.NF.l) KR=0 

i f ( twc.fo.o) t n r = i 

TF dRACF. FO.n. ) 7 R fl C. F = l.OF in 

K K = T NT * ( IF1.-MJ 
nn ion 1=1,5 
inn 1 X( I ) = f F ( 1 ) -K K 

!F( JF(? l.MF.ni on TP 710 
nn mi 1=7,5 
mi T x ( I )=r 
710 nn 5 50 NFL=W,1FI. 
nn no 1 = 1,5 
n = ix( n 

I F f U.FD.O) GO IP no 

xx( t > = x( i r ) 

YY ( I ) =Y ( I I I 
771 1> = 71 M > 

110 f.OM 7 TN| JF 

1 F ( ixm .Fn.ni on ip 750 

CALL VFCTPRHI,XX(?),YY(?)»?7(7)*XX(3),YY(3),Z7(3)) 

CALL VFC TPRf V ,XX < A ),YY(A),7Z(4),XX(5),YY15),ZZ(5M 
CALL CRnRMH,V, 7 ) 
on TP 700 

750 CALL VFCTPRCTfXXM ) , YY ( 1 ).77<1 ) * XX < 7 ) , YY ( ? 1 , Z 7 ( 7 ) ) 

700 00 50 ,)=] ,7 

57 ( 1 . J )=TU 1*TRACF*K0 
SH 7, .1+7 ) = T( .1 )*TRA0F*KR 
R f .1 ) = 7(J)*7RACF*Sn*Kn 

R( .1+7 ) = T( .1 )*TRACF#SR*KR 
OP 50 1=1 ,,l 

5( 1 ) = n D*T( J)*TRACF*KO 

5 0 T +7 , *i+7 1 = 7(1 1*7 ( J)*TR ACF*KR 

nn 500 1=7,0 

I 1=1-1 

on 5no .1 = 1 , 1 1 

500 S( 1 ,vM = M Jtl ) 

nn 570 ,1 = 1 

7 7 ( 1 , J )=-7RACF#Kn*Sn*FM!!L ( J 1 
TTt ?,J) = -TRACF*KR*5R*FM||U J) 

nn 570 r=i,o 
570 P( I * J ) =R ( I )#FMI1|.( .1 ) 

II = 1X1] ) 

nn ono [ =i f o 
onn i.m( n = m( n, 1 1 

CALL CAI. RAM ( NniF tLM'S'Pf ST«TT«N|l f MV'NS'NO'NW, [nv, IEXvFRC) 
WRI1F ( |W,?]00) MFL , IX,KO*KR ,S0,5R, TRACF 
[X( 1 ) = TX( 1 l + TNC 
IXf 71=1X1 ? l+TMC 
1 F ( 1 X( 7 ) .FO.O) r,P TP 550 
nn 050 1=7,5 
050 [X( T ) = IX( I 1 + TWC 
550 C.nM7[WMF 
M= 1FI. + 1 

IF (M.| F.MHMF 1 OP IP ?P0 
PF TIIRM 


R(11JN0560 
RPI IM0570 
RPIIM05RO 
RP1IN0590 
RPIJMOOOO 
RPUM0010 
RPIIM007 0 
RPUNP030 
RflUMOOAO 
RPIIMOO 50 
RPUN0060 
B0UN0070 
RPUNOORO 
BPUN0090 
RPUN0700 
RPUMP710 
RPUN07? 0 
RPUM0730 
RPUM07AO 
RPUN0750 
pn(INn760 
R0UM0770 
RPUM07R0 
RnUN0790 
RPUNOROO 
ROUMORIO 
RPUN0R70 
RPIJMOR30 
RPUNOROO 
RPIIM0R50 
RPUNOROO 
RPUN0R70 
HPUMOnRO 
RPUM0B9f> 
BPUN0900 
RPIJN09 10 
RPUM0970 
RPUM0930 
RnilM09A0 
RPUM0950 
RCHJN0960 
RPIIM0970 
RPUN09BO 
RPDN0990 
pnuNiooo 
RPUM1010 
RPIIN1 070 
HPIIM1030 
RPlIMlO^n 
RPIIMI'050 
RPUMmoo 
RnilMl070 
pni jm i pro 
RPMW 1090 
RPUMl 100 
RPIIM1 l 1 O 
ROHM] 170 
RPIIMl 1 30 


1000 F0PMA7 ( OT 5, 5X , 7F 1 n.n ) 


IUM1M1 1 AO 


Q.94 



tnpR format { afi n.P) 

?OOP FORMAT I ?4H1 RPIJNPARY F I. F M F N 7 S / / 

] NIIMRFP nF FI.FMFMTS = ,1^ ) 

?nni FnpMAii//??H rpi imp ar y flfmfmt pata // 

1 FX, SHrnM^T.SXtAHMnnF ,4?H /--MnPF <; RFFINJMt; CONSTRAINT DiRFCTIPN- 
?/,SX,*HCnnFS, PX,SHniSPL»SX f RHRP1ATIPM,4X,SHSTIFF / 

3 AX,*HMJMRFR ,AX , 1HM.RX ,?HNJ f R X , ?HN J , R X , ?HNK , RX , ?HN|_ , AX , ?HKD , W « 

A ?MKP,]1X « 1 HD • 1 1 X « l HP tl?X,]HS ) 

?OOS FORMAT ( // ?SH f-LFMFMT (.PAD Ml M_ FI P L 1 FP S / / 

. OX, l HA ,UX, 1 MR ,OX . TUT , OX , 1 HP / 4 F ] P , 4 } 

?lpn F P R M A T ( !7,*inn t ^X 

F wn 


rpiini ) *>n 
bpi im 1 \ frn 
HPIIM 1 1 70 
RPUWl 1 ftp 
— BPI tN 1 1 00 
RPMM1700 
RPIINl? 1 0 
RPHM1 ??0 
RPI INI? -U) 

am in ] ?4o 
RPIINl? 5(1 
RPUN1760 


Q.95 



NASA-Langley, 1977 


pop 


pop 


pop 


pop 


pop 


pop 


cimuniniMF ipiis^ f A . J« 1 1 * T ) 
n T mfmc, |hm m 'Hni ) 
up I lFf A. Pop ) . 

<; TfiD 

FPUMA1(1V,I ppnnpAM FM7FPF0 mummy ^iUDfiil IMF TUIIS^ 
FMfl 


IMP PHI IMF MF AM ( A « M TP 1 ) 

O [MPMC TPM AT M TP I ) 

UPTTF 

STHP 

F PP M A 1 ( 1 V , * PPMPPAM FM1FPFP MUMMY minPMIIllMF HP AM 
FMH 


qiHPOUl IMF PI AA'F I A, Mini) 

O I Mpw<; TOM A ( m yn r ) 

MPT IF fA.pop ) 

STDP 

FPPMATI IV, ' PPMCPA'-I PM1FPPH MUMMY S U P P f 1 1 1 I ] MF p | A M F 
FMP 


Slippmn IMF SMFAP f A , M 1 f 1 1 ) 

n imp m<; tpm at m tut ) 
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